Computer-Programme tur »inciair xa bi 


CHIP 


Computer- Programme 
Sinclair ZX 81 


Ausgabe 3 



Dis-Assembler • Schach • Monitor • Trickfilm • 
1-K-Maschinenspiele • Tips • Hobby 

Ein Sonderheft von CHIP 


18 - DM • 82004/85006 



Editorial 


S uperieich t zum EinHppen 


So einfach war das Programme-Eintippen noch nie: Unsere Program¬ 
mierer haben keinen Aufwand gescheut, um Ihnen, als ZX-81-Besit- 
zer, das Abtippen so einfach wie möglich zu machen: 

O Alle Listings wurden von schwer entschlüsselbaren Grafikzei¬ 
chen - die sich nun entschlüssselt in geschweiften Klammern befin¬ 
den - befreit. Das lästige Leersteilen-Auszählen ersetzt eine 
ebenfalls in Klammer befindliche Space-Zahl. Dadurch werden die 
Programme oft um mehr als ein Drittel kürzer. 

O Alle Maschinen-Programme - und das ist der überwiegende Teil 
dieser Ausgabe - wurden mit Prüfziffern versehen. Dieser Zeilen- 
Check sorgt dafür, daß sich beim Abtippen keine Fehler mehr unbe¬ 
merkt einschleichen können. 

Bevor Sie also ans Eingeben gehen, beachten Sie bitte unsere 
beiden Kurzeinführungen "So tippe ich BASIC- bzw. Maschinen-Pro¬ 
gramme ein". 

Mit der vorliegenden Ausgabe verfügen Sie über die schnellsten 
und komfortabelsten ZX-81-Programme, die es in der CHIP-SPECIAL- 
Reihe jemals gab. 

Für diejenigen unter unseren Lesern, die mit dem vorliegenden 
Heft über die erste ZX-81-Ausgabe aus unserem Hause verfügen, ein 
Hinweis: 

Die Ausgabe "Sinclair ZX 81 Programme, Ausgabe 2" enthält unter 
anderem Programme aus unserem Wettbewerb "Die Goldene Diskette". 
Zudem finden sich dort neben einer reichen Auswahl an Spielspaß so 
nützliche Dinge wie: ein Programm zu Erstellen eines Kassetten¬ 
archivs , eine nützlicher Überschreibschutz, ein Listing, mit dem 
sich beim Laden von Programmen viel Zeit sparen läßt. Mit Change 
lassen sich Hexadezimal-Zahlen in Dezimal-Zahlen umwandeln. Plota 
zeichnet beliebige mathematische Funktionen auf den Bildschirm. 
Vokabel-Trainer, Wetterkarte, BaföG-Berechnungen, Schützenschei- 
ben-Auswertung. Ein hervorragendes Bildschirmgrafik-Programm run¬ 
den dieses im letzten Jahr erschienene Heft ab. 

Übrigens: Alle Programme von beiden Ausgaben sind auch auf 
Datenträger erhältlich. Viel Spaß, insbesondere mit den hier eben¬ 
falls erstmalig veröffentlichten superschnellen 1-K-Maschinenspie- 
len wünscht Ihnen 

Ihre Redaktion CHIP-SPECIAL 


Armin Schwarz 
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Programmierhilfe/Werkzeug 


S o tippe ich Programme ein 


Für die Darstellung der Graphikzei¬ 
chen in STRINGS und REMARKS wurde 
eine besondere Form gewählt. Da¬ 
durch wird die Eingabe der Program¬ 
me ganz erheblich erleichtert, denn 
viele Graphikzeichen sind nicht 
ausdruckbar. Zudem wurde die Arbeit 
des Zählens von gleichen Zeichen 
vereinfacht. So wird in geschwunge¬ 
nen Klammern immer zuerst die An¬ 
zahl, dann das entsprechende Zei¬ 
chen angegeben. Steht zum Beispiel 
in einer geschwungenen Klammer '35* 
<SPC>’, so ist ganz einfach fünf¬ 
unddreißig Mal die SPACE-Taste zu 
drücken, oder bei 'MO * •' vierzig 
Mal die Taste mit dem Sternchen. 


Für die Graphikzeichen wurde das 
folgende Format gewählt; 


<<ZEICHEN>> = GRAPHICS + SHIFT + 

ZEICHEN 

[ZEICHEN] = GRAPHICS + ZEICHEN 


Falls also [A] im Listing auf¬ 
taucht, ist die A-Taste in 
Verbindung mit der GRAPHICS-Taste 
zu Drücken. 

Bei <<A>> kommt noch die SHIFT- 
Taste hinzu. 


So geben Sie Maschinenpragramme ein 


In diesem Heft werden Sie viele 
Programme finden, die in Maschinen¬ 
sprache geschrieben worden sind. 
Einige dieser Programme unterschei¬ 
den sich lediglich in einigen Wer¬ 
ten, die in den Rechner gepoked 
werden,so daß für sie eine einheit¬ 
liche Vorgehensweise bei der Einga¬ 
be angegeben werden kann. Sie fin¬ 
den bei den betroffenen Programmen 
einen Verweis auf diesen Artikel. 
Es sei darauf hingewiesen, daß die 
nachgehend geschilderte Vorgehens¬ 
weise zwar prinzipiell auf alle 
Maschinenprodgramme zutrifft, aber 
nicht für alle Maschinenprogramme 
in diesem Heft angewendet werden 
darf. 

So wird * s gemacht 

Für jedes Maschinenprogramm muß 
eine oder mehrere REM-Zeilen ge¬ 
schaffen werden, um das Programm im 
Speicher ablegen zu können. Die 
Anzahl der zu erzeugenden REM- 
Zeilen können Sie der, in der Doku¬ 
mentation des Programmes angegeben 
Variablen A, entnehmen. Beispiel; 
A=3*155. Das heißt, daß Sie drei 
REM-Zeilen mit je 155 Zeichen er- 
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stellen müssen. Hierzu gehen Sie 
bitte vor wie folgt; 

Fertigen Sie zuerst eine Zeile 
1 REM mit genau 155 Zeichen (z.B. 
155 * ”x”) dahinter an. Um sich die 
Arbeit, die REM-Zeile noch zweimal 
von Hand einzugeben, zu ersparen, 
kommt der 'EDIT'-Befehl zur Anwen¬ 
dung. Mit diesem Befehl können Sie 
die eben geschaffene Zeile prak¬ 
tisch kopieren. Nehmen Sie die 
Zeile mit dem 'EDIT'-Befehl heraus 
und erhöhen Sie die Zeilennummer um 
eins. Geben Sie die neue Zeile mit 
NEW LINE wieder ein. Nun gehen Sie 
noch einmal auf beschriebene Art 
und Weise vor, so daß Sie schließ¬ 
lich drei REM-Zeilen mit jeweils 
155 Zeichen erzeugt haben. Es kann 
Vorkommen, daß verschieden lange 
REM-Zeilen geschaffen werden müs¬ 
sen. Das ändert allerdings nichts 
an der Vorgehensweise. Es genügt, 
einer Zeile die entsprechende An¬ 
zahl von Zeichen anzufügen. 

Der nächste Schritt 

Der nächste Schritt verlangt die 
Eingabe einiger Befehle im Direkt¬ 
modus. Jeder Befehl muß mit NEW 


















Werkzeug 


LINE abgeschlossen werden: 

POKE 16511i B (NL) 

POKE 16512, C (NL) 

POKE 16514, D (NL) 

Die Variablen B, C, D sind durch 
die in der Dokumentation des Pro¬ 
grammes angegebenen Werte zu er¬ 
setzen. So können z.B. B=223» C=1 
und D=118 sein. Werden für irgend¬ 
eine Variable keine Werte angege¬ 
ben, so entfallen diese, und damit 
natürlich der Befehl. Die Variable 
E gibt Ihnen an, in welchem Spei¬ 
cherbereich das Maschinenprogramm 
liegt. Da jetzt die REM-Zeilen 
eingegeben sind, und somit das 
Maschinenprogramm im Speicher un¬ 
tergebracht werden kann, muß dieses 
als nächstes in hexadezimaler Form 
eingetippt werden. Dazu bedienen 
Sie sich eines Ladeprogrammes. Auch 
dieses Programm finden Sie in die¬ 
sem Heft. Es heißt ”Hex-Lader", und 
ist in BASIC geschrieben. Dieses 
Ladeprogramm hängen Sie direkt an 
die REM-Zeilen an. 


Gegen Fehleingabe geschützt 

Starten Sie nach Beendigung der 
Eingabe das Ladeprogramm mit RUN. 
Jetzt können Sie die Bytes einge¬ 
ben. Nach der Eingabe des Maschi¬ 
nencodes löschen Sie das Ladepro¬ 
gramm. Es wird nicht mehr benötigt. 
Keine Angst, die REM-Zeilen sind 
vor dem Auslöschen geschützt. Sie 
können also keinen Fehler machen. 
Fügen Sie nun als Letztes die zum 
Programm gehörenden BASIC-Zeilen 
an. Sie haben es geschafft! Die 
Arbeit ist vollbracht! 

Vor dem Start des Maschinenprogram¬ 
mes müssen Sie dieses unbedingt ab¬ 
speichern, da nach einem Start die 
Rückkehr in das BASIC nicht möglich 
ist. Die Arbeit des Eingebens wäre 
ganz umsonst gewesen! Wie das Pro¬ 
gramm gestartet wird, entnehmen Sie 
bitte wieder der jeweiligen Doku¬ 
mentation . 

Helmut Dursch 


Hex-LocKler 


Rechner: 
Programmname: 
Programmiersprache: 
Programmlänge: 
Zubehör: 


ZX-81 


Hex-Loader 
BASIC 
400 Byte 


Die Eingabe eines Maschinenprogram¬ 
mes gestaltet sich zumeist etwas 
umständlich und langwierig. Dieses 
Eingabeprogramm soll die Arbeit des 
Eintippens der oft langen Zahlen¬ 
kolonnen erleichtern. Eine Fehler¬ 
routine überprüft jede eingebene 
Zeile mittels einer Prüfsumme, so 
daß eine mühsame spätere Fehler¬ 
suche vermieden wird. 

Nach dem Start des BASIC-Programmes 
wird die Angabe einer Startadresse 
erbeten. Die Startadresse wird in 
dezimaler Form eingetippt. Sie 
können sie der Variablen E entneh¬ 
men, falls Sie eines der Maschinen¬ 
programme eingeben möchten, in de¬ 
ren Dokumentation auf den Artikel: 
•'So geben Sie Maschinenprogramme 
ein" verwiesen wird. Ebenso steht 
die Startadresse an erster Stelle 


einer jeden Zeile des Listings. 
Möchten Sie dagegen ein anderes 
oder selbstentwickeltes Maschinen¬ 
programm eintippen, geben Sie bitte 
die dem jeweiligen Programm ent¬ 
sprechende Startadresse an. 

Die Eingabe der hexadezimalen Zah¬ 
len erfolgt in einer Zeile mit acht 
Zahlenpaaren, die jeweils durch ein 
Space getrennt sind. Jede Abwei¬ 
chung von dieser Form der Eingabe 
führt zu einem Fehler, und die 
Zeile muß neu eingegeben werden. 
Nun werden Sie um die Prüfsumme 
gebeten, die letzte Zahl einer 
Zeile des Listings. Bitte geben Sie 
diese immer vierstellig ein, da 
sonst die Fehlerroutine einen Feh¬ 
ler feststellt. Folge: Die Zeile 
muß noch einmal eingegeben werden. 
Wenn Sie das Maschinenprogramm ein¬ 
gegeben haben, oder wenn Sie die 
Eingabe desselben ab- oder unter¬ 
brechen möchten, geben Sie bitte 
anstelle eines Zahlenpaares zwei 
Doppelpunkte ein. Der Hex-Lader 
wird gestoppt. 
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Hobby 


Im Falle einer Unterbrechung können 
Sie das bisher Eingegebene ohne 
Probleme auf einen Kassettenrecor¬ 
der abspeichern, und zu einem ande¬ 
ren Zeitpunkt die Arbeit wieder 
aufnehmen. Doch vergessen Sie nicht 
die Adresse zu notieren, bei der 
Sie geendet haben. Es sei aber 
geraten nicht mitten in einer Zeile 


zu unterbrechen, sondern immer erst 
am Ende einer solchen. Nach dem 
Laden starten Sie den Hex-Lader 
wieder, und nehmen nun als Start¬ 
adresse die nächste Einzugebende. 
Jetzt noch viel Spaß mit den Ma¬ 
schinenprogrammen . 

Jan Vollmuth 


100 REM HEXLOADER 
110 FUER CHIP SPECIAL 
120 REM VON JAN VOLLMUTH 
200 REM INIT 
210 DIM E$(23) 

220 LET FF=0 
230 REM EINGABE 
240 CLS 

250 PRINT AT 20,0;"STARTADRESSE (D 
E Z); ” ; 

260 INPUT SA 
270 PRINT AT 20,21;SA 
290 REM START 
300 LET E$=«« 

310 CLS 

320 PRINT AT 21,0;SA;”!”; 

330 INPUT E$ 

340 PRINT AT 21,7;E$ 

345 SCROLL 

350 PRINT AT 21,0;"PRUEFSUMME;’'; 
360 INPUT P$ 

370 PRINT AT 21,13;P$ 

380 LET PS=0 

390 LET 1=0 TO 7 

400 LET PO=I»3+l 

410 LET H$=E$(P0 TO PO+1) 

420 GOSUB 1000 

430 IF FF=1 THEN GOTO 1500 

440 POKE SA+I,H 

450 LET PS=PS+H 


460 

NEXT I 




465 

LET PE=0 




470 

LET H$=P$(1 TO 

2) 



480 

GOSUB 1000 




490 

LET PE=H»256 




500 

LET H$=P$(3 TO 

4) 



510 

GOSUB 1000 




520 

LET PE=PE+H 




530 

IF PEOPS THEN 

PRINT 

"FALSCHE 


EINGABE. NOCH EINMAL 

fl 

• 


540 

IF PEOPS THEN 

GOTO 

290 


550 

LET SA=SA+8 




560 

GOTO 290 




700 

STOP 




1000 

REM H$—>H 




1010 

LET K$=H$(1) 




1020 

LET L$=H$(2) 




1030 

LET K=C0DE K$ 




1040 

LET L=C0DE L$ 




1050 

IF K=14 AND L=14 THEN GOTO 700 

1060 

IF K<28 OR K>43 

THEN 

LET 

FF=1 

1070 

IF L<28 OR L>43 

THEN 

LET 

FF=1 

1080 

LET K=K-28 




1090 

LET L=L-28 




1100 

LET H=K»16+L 




1110 

RETURN 




1500 

LET 1=7 




1510 

NEXT I 




1520 

LET FF=0 




1530 

GOTO 290 





Heimldno 


Rechner; ZX-81 
Programmname; Trickfilm 
Programmlänge; 6000 Bytes 
Programmiersprache; BASIC+Assembler 
Zubehör; l6kByte-Erweiterung 

Drucker 


Wandeln Sie auf den Spuren von Walt 
Disney, und all uen anderen Großen 
des Trickfilms! Dieses Programm 


enthält alle Routinen, die nötig 
sind, um Ihren Bildern das Laufen 
zu lernen. Sie können sich einen 
Trickfilm erstellen, der aus bis zu 
10 verschiedenen Bilder besteht. 
Nach dem Start des Programmes mit 
RUN erscheint ein Menü, das Ihnen 
folgende Optionen bietet; 

T - Mit ”T” wird der Trickfilm 
gestartet. 

Z - Mit "Z" können Szenenfotos auf 
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Hobby 


dem ZX Printer ausgegeben werden. 

N - Mit "N" wählen Sie den 

Filmtitel, dessen maximale 
Länge 30 Zeichen betragen 

dar f. 

S - Mit ”S" wird der selbst 

erstellte Film auf Band 
gespeichert. 

B - Mit ”B” werden die einzelnen 
Bilder gemalt; d.h. nur das 
erste Bild muß vollständig 
gezeichnet werden, die rest¬ 
lichen Bilder sind nur Ände¬ 
rungen des ersten. Zunächst 


frägt Sie die Routine nach der 
Nummer des neuen Bildes (die 
eins bis zehn betragen kann), 
sowie welches Bild als Vorlage 
dienen soll. 

Zur Bilderstellung; Der Cursor 
läßt sich durch die Cursortas¬ 
ten ohne Betätigung von SHIFT 
bewegen. Alle Tasten sind 
Dauerfunktionstasten. Zudem 
ist die Tastaturbelegung wie 
folgt geändert worden, damit 
das lästige Umschalten in den 
Graphikmodus entfallen kann; 


untere Zeichen 
mit 



erreichbar 


Geänderte Tastaturbelegung des ZX-81 
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Mit "FUNCTION" (SHIFT/NEW 
LINE) schaltet man auf einen 
INPUT-Modus um, so daß alle 
Zeichen zugänglich sind. Mit 
"NEWLINE" wird das fertige 
Bild abgespeichert. 

F - Mit "F" legen Sie die Bildfol¬ 
ge fest. Dabei sind jeweils - 
durch einen Punkt getrennt 
zweistellige Zahlen (02 statt 
2) einzugeben. Die Bedeutungen 
der einzelnen Zahlen sind 
nachfolgend aufgeführt; 

01 - 10 Bildnummern 
41 - 89 Zeitfaktor 
90 Blackout 


95 

Verschieben des 
des nach links 

Bil- 

96 

Verschieben des 
des nach unten 

Bil- 

97 

Verschieben des 
des nach oben 

Bil- 

98 

Verschieben des 
des nach rechts 

Bil- 

99 

Invertieren des 
des 

Bil- 

Fehlern 

kommen Sie mit 

GOTO 


1000 in das Hauptmenü zurück. 
Hinweis zur Programmeingabe 
Gehen Sie bitte, wie in dem Arti- 
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ikel; ”So geben Sie Maschinenpro 
|gramme ein" beschrieben, vor. 
iListe der Variablen; 

A=27»99 
B=15 
C=11 


Die restlichen Variablen entfallen. 
Hinzu kommt folgender Befehl im 
Direkt-Modus; 

POKE 16510,0 

Helmut Linneweber 


0 REM 1725 Bytes reserviert! 

10 REM C 1984 

11 REM HELMUT LINNEWEBER 

12 REM RIEHLER STR,51 

13 REM 5000 KOELN 91 

19 REM VARIABLEN DEFINITION 

20 CLEAR 

30 DIM Y$(32) 

45 DIM X(1470) 

50 DIM S(20) 

52 DIM L(20) 

53 LET END=9 
55 LET G$="*' 

57 FOR 1=1 TO 704 

58 PRINT 

59 NEXT I 

60 FOR 1=0 TO END 

62 LET S(I+1)=16780+I»34 
64 LET L(I+1)=16797+I*34 
70 RAND USR S(I+1) 

75 NEXT I 
79 GOTO 1200 
1201 REM MENUE 
1203 CLS 

1205 PRINT AT 3i0;”[(32»<SPC>}]” 

1206 PRINT 

1207 PRINT " TRICKFILMME 

N U E '* 

1208 PRINT 

1209 PRINT «[{32»<SPC>}]” 

1210 PRINT 

1211 PRINT ”{5*<SPC>} [Nj FILMTITEL»* 

1212 PRINT *»{5*<SPC>} [B] BILD ZEICH 
NEN»' 

1213 PRINT •»{5»<SPC>}[F] FOLGE ZUSA 
MMENSTELLEN" 

1214 PRINT **{5*<SPC>} [T] TRICKFILM»* 

1216 PRINT **{5»<SPC>}[S] AUF BAND S 
PEICHERN»* 

1217 PRINT »»{5*<SPC>} [Z] SZENENFOTO 

tt 

1218 PRINT 

1219 PRINT »*[{32»<SPC>}]*» 

1220 GOSUB 9200 

1221 IF V$=*»Z»* THEN GOTO 6000 

1222 IF V$=»*T»* THEN GOTO 3000 

1223 IF V$=»*S»* THEN GOTO 9000 

1224 IF V$=»*B*» THEN GOTO 1350 

1225 IF V$=*»N»' THEN GOTO 4000 

1226 IF V$=**F»* THEN GOTO 1228 

1227 GOTO 1220 

1228 CLS 

1229 IF G$<>***» THEN GOTO 1238 

1230 CLS 

1231 PRINT »*DURCH PUNKTE ABGETRENNT 

NUR DIE BILDI^MMERN ANGEBEN*» 

1232 INPUT T$ 

1234 CLS 

1235 LET G$=G$+T$ 

1237 GOTO 1200 

1238 PRINT G$ 

1239 PRINT AT 20,0;'*S0LL DIE FOLGE 
ERHALTEN BLEIBEN? ([J]/[N])*» 

1254 GOSUB 9200 
1260 IF V$=*»J»* THEN GOTO 1230 
1262 PRINT AT 20,0 ; »»WIEVIELE ZEICHE 
N SOLLEN GESTRICHEN WERDEN? (A 
LLE=1000)'» 

1265 INPUT P 

1270 IF P<=LEN G$ THEN LET G$=G$( T 
0 LEN G$-P) 

1271 IF P= 1000 THEN LET G$=*»»» 

1290 CLS 

1291 GOTO 1200 


1350 CLS 

1355 PRINT »»WELCHE NUMMER SOLL DAS 
NEUE BILD BEKOMMEN?»» 

1356 PRINT , »»»BILDNUMMER EINGEBEN»» 
1358 INPUT P 

1360 IF P>END+1 OR P<=0 THEN GOTO 1 
358 

1400 CLS 

1401 PRINT »»WELCHES BILD SOLL ALS G 
RUNDLAGE DIENEN?»» 

1410 PRINT , ,»'BIL15NUMMER EINGEBEN»» 
1420 INPUT R 

1430 IF R>END+1 THEN GOTO 1400 
1440 RAND USR L(R) 

1442 PRINT AT 21,0;»»[ BILD ]*»;R;»»[ 

: VORLAGE RICHTIG? ]J/N[ ]»» 
1449 GOSUB 9200 
1460 IF V$ = *»J»» THEN GOTO 1600 
1465 CLS 
1470 GOTO 1401 
1600 RAND USR L(R) 

2002 LET BA=1+PEEK 16396+256»PEEK 1 
6397 

2005 LET B$=»* »» 

2010 LET X=0 
2020 LET Y=0 

2100 PRINT AT X,Y;»»[?]*» 

2101 GOSUB 9203 
2104 LET V=CODE V$ 

2106 PRINT AT X,Y;B$ 

2114 IF V>63 THEN GOTO 2121 

2115 IF V=36 THEN GOTO 2200 

2116 IF V=35 THEN GOTO 2210 

2117 IF V=34 THEN GOTO 2220 

2118 IF V=33 THEN GOTO 2230 

2119 PRINT AT X,Y;CHR$ V; 

2120 GOTO 2180 

2121 IF V=121 THEN GOTO 2700 

2122 IF V=118 THEN GOTO 2800 

2125 PRINT AT X,Y;*» »» AND V=119;”[ 
]»» AND V=116; 

2130 PRINT AT X,Y;*»«1»»» AND V=117 
;»»«2>>»» AND V=218;"<<E>>*» AND 
V=222;**«4»** AND V=223;”«5> 
>»» AND V=114;'»<<G>>*» AND V=113 
;»»«7»" AND V=112;*»«8»" AND 
V=115;'*[ ]” AND V=116; 

2132 PRINT AT X,Y;»*«Q»** AND V=192 
;»<<<W>>»* AND V=217;"<<3»” AND 
V=224;*»«R»»» AND V=219;"«T> 
>»' AND V=221 ;*»<<Y>>*» AND V=220 

2134 PRINT AT X,Y;»»«A»»» AND V=227 
;»««S»»» AND V=225;"«D»»» AND 
V=228;"«F»»» AND V=229;”«G> 
>»» AND V=226;»»«H»*» AND V=216 

2180 IF Y<32 THEN LET Y=Y+1 
2182 IF Y=32 AND X<21 THEN LET X=X+ 
1 

2184 IF Y=32 AND X<=21 THEN LET Y=0 
2186 LET B$=CHR$ PEEK (BA+Y+X»33) 
2188 GOTO 2100 
2200 PRINT AT X,Y;B$ 

2205 IF Y<31 THEN LET Y=Y+1 

2207 GOTO 2250 

2215 IF X>0 THEN LET X=X-1 

2217 GOTO 2250 

2225 IF X<21 THEN LET X=X+1 

2227 GOTO 2250 

2235 IF Y>0 THEN LET Y=Y-1 

2237 GOTO 2250 

2250 LET B$=CHR$ (PEEK (BA+33*X+Y)) 
2280 GOTO 2100 


2703 INPUT Z$ 

2710 IF LEN (Z$)>1 THEN GOTO 2700 
2720 LET B$=Z$ 

2725 PRINT AT X,Y;B$ 

2726 GOTO 2180 

2801 PRINT AT X,Y;B$ 

2820 RAND USR S(P) 

2830 GOTO 1200 

3005 LET M$=N$ 

3006 GOSUB 9070 

3010 FOR 1=1 TO LEN G$STEP 3 
3330 LET K=VAL (G$(I)+G$(I+1)) 

3335 IF K>0 AND K<=(END+1) THEN RAN 
D USR L(K) 

3342 IF K=99 THEN RAND USR 16516 

3343 IF K=98 THEN RAND USR 16715 

3344 IF K=97 THEN RAND USR 16583 

3345 IF K=96 THEN RANp USR 16670 

3346 IF K=95 THEN RAND USR I66l6 

3347 IF K=90 THEN GOSUB 9090 

3348 IF K>40 AND K<90 THEN GOSUB 33 
70 

3350 NEXT I 

3351 LET M$=*»ENDE»» 

3355 GOSUB 9070 
3360 GOTO 1200 
3370 FOR J=41 TO K 
3372 NEXT J 

3374 RETURN 
4001 CLS 

4005 PRINT »»WELCHEN TITEL SOLL DER 
FILM ERHALTEN? (NICHT MEHR A 
LS 30 ZEICHEN)»» 

4010 INPUT N$ 

4020 LET M$=N$ 

4025 GOSUB 9070 
4030 GOTO 1200 
6001 CLS 

6010 PRINT »»WELCHE SZENE SOLL FOTOG 
RAFIERT WERDEN? (BILDNUMMER EI 
NGEBEN)»» 

6020 INPUT I 
6030 RAND USR L(I) 

6040 COPY 
6050 GOTO 1200 
9000 SAVE »»BIL[D]«» 

9010 PRINT AT 21,17;*»TIPP [NEWLINE] 

it 

9020 GOSUB 9200 
9030 GOTO 3000 
9072 RAND USR 16544 
9080 FOR 1=1 TO 20 
9082 PRINT AT 10,16-(LEN M$/2);M$ 
9085 PRINT AT 10,0;'»[ ]{30*<SPC>}[ 
]*» 

9087 NEXT I 

9088 GOSUB 9090 

9089 RETURN 

9090 FOR J=0 TO 21 

9092 PRINT AT J ,0 ;»»[ { 32«<SPC>} ]»» 
9095 NEXT J 

9097 PRINT AT 21,0 ;»»«{32»H}>>»» 

9110 FOR J=0 TO 20 
9114 RAND USR 16583 
9117 NEXT J 
9130 RETURN 

9202 IF INKEY$<>*»»» THEN GOTO 9202 

9203 IF INKEY$ = '»*» THEN GOTO 9203 

9204 LET V$=INKEY$ 

9205 RETURN 

16514 76 76 2A OC 40 06 16 C5 0243 

16522 06 20 23 7E FE 7F 38 04 0280 

16530 DE 80 18 02 C6 80 77 10 0345 

16538 Fl 23 CI 10 EA C9 2A OC 03CE 
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Wirlschcrfls-Siinulation 


Happy Mac 


Rechner; ZX-81 
Programmname: Mc Ronald 
Programmlänge; 22000 Bytes 
Programmiersprache; BASIC 
Zubehör; 64kByte-Erweiterung 

Sicherlich hat es Sie schon lange 
einmal gereizt, Ihr kaufmännisches 
Talent zu testen. Hier haben Sie 
die Gelegenheit, eine Zweigstelle 
von Mc Ronalds zu übernehmen. Ihre 
Aufgabe ist es Pommes Prites, 
Cheeseburger, usw. in den richtigen 
Mengen einzukaufen, ohne sich zu 
verkalkulieren. Anstrebenswert ist, 
das steht außer Frage, soviel wie 


möglich weiter zu veräußern. Doch 
das ist leichter gesagt, als getan, 
denn das Kaufverhalten der Kunden 
einzuschätzen ist nicht einfach. 
Natürlich haben Sie auch mit unvor¬ 
hergesehenen Ereignissen zu 
rechnen. Es kann Ihnen unter ande¬ 
rem geschehen^, daß Ihr Geschäft 
Opfer einer Überschwemmung wird. 
Nach neun Wochen wird Bilanz ge¬ 
zogen. Vielleicht sind Sie dann 
Millionär, oder ein Anwärter auf 
einen Platz in der Gosse. Natürlich 
nur auf dem Papier, versteht sich ! 

Jochen Sasse 


1 REM MAC RONALDS 

2 REM EUER CHIP SPECIAL 

3 REM VON JOCHEN SASSE 

4 REM 

10 DIM P(4) 

20 DIM W(4) 

30 DIM N(4) 

40 LET YU=0 
50 LET G=5{4*0} 

60 LET ZEIT=0 
70 LET XY=0 
200 GOSUB 9000 
210 CLS 

212 IF ZEIT=9 THEN GOTO 7000 
215 LET ZEIT=ZEIT+1 
220 PRINT ”[{11*<SPC>}STATISTIK{12» 
<SPC>}]" 

230 PRINT 

235 IF YU=0 THEN LET T=528 
240 GOSUB 9400 

250 PRINT «POMMES FRITES{8».}«;« « 
AND P(1)<1000;P(1);« X" 

260 PRINT "HAMBURGER{12».}«;« « AND 
P(2)<1000;P(2);« X" 

270 PRINT «CHEESEBURGER{9».}”;’' ” A 
ND P(3)<1000;P(3);" X" 

280 PRINT "BIG MAECS{12».}«;« " AND 
P(4)<1000;P(4);" X" 

290 PRINT AT 10,0;«WIEVIELE PCK. KA 
UFEN SIE EIN ?« 

300 PRINT AT 12,0;"POMMES FRITES..1 
00 POR.=110 DM" 

310 PRINT "HAMBURGER{6».}100 STK.=1 
70 DM" 

320 PRINT "CHEESEBURGER...100 STK.- 
185 DM" 

330 PRINT "BIG MAECS{6».}100 STK.=3 
00 DM" 

335 PRINT AT 20,0;"IHR KONTOSTAND:« 
;G;" DM" 

340 FOR Y-12 TO 15 

350 PRINT AT Y,31f"C?]";AT Y-1,31;" 

II 

360 INPUT W(Y-11) 

370 LET G=G-(110»W(Y"11) AND Y-11=1 
)-(170»W(Y-11) AND Y-11-2)-(185 
•W(Y-11) AND Y-11=3)-(300»W(Y-1 
1) AND Y-11-4) 

380 PRINT AT 20,0;"IHR KONTOSTAND:" 

;G;" DM " 

395 NEXT Y 


400 IF G<=0 THEN GOTO 8500 
405 LET YU=0 

410 PRINT "[{6»<SPC>}EINE TASTE DRU 
ECKEN{7»<SPC>}]" 

420 IF INKEY$="" THEN GOTO 420 
430 CLS 

440 GOTO INT (RND •6+1)»1000 
1000 CLS 

1002 PRINT "[{13»<SPC>}. W0CHE{12»< 
SPO}]" 

1005 PRINT AT 0,12;CHR$ (156+ZEIT) 
1010 PRINT 

1020 PRINT "SIE HABEN DIE" 

1030 PRINT ZEIT;". WOCHE ÜEBERSTAND 
EN." 

1040 PRINT AT 5t0;"[IHRE VERKAUFSZA 
HLEN:{12»<SPC>}]" 

1050 GOSUB 9500 

1060 PRINT AT 14,0;"[ERGEBNIS:{23»< 
SPO}]" 

1070 PRINT «SIE HATTEN« 

1080 FOR Q=1 TO 4 

1090 PRINT " " AND ABS (100»W(Q)-N( 
Q))<100;ABS (100»W(Q)-N(Q));" 
«;"POMMES FRITES " AND Q=1;"HA 
MBURGER " AND Q=2;"CHEESEBURGE 
R« AND Q=3;"BIG MAECS " AND Q- 
4;"ZU VIEL« AND 100»W(Q)-N(Q)> 
0;"ZU WENIG" AND 100»W(Q)-N(Q) 

<0 

1100 NEXT Q 

1102 FOR Q-1 TO 4 

1104 LET G-G+INT (RND »(N(Q)»3)) 

1106 NEXT Q 

1110 PRINT "[{6»<SPC>}EINE TASTE DR 
UECKEN{7»<SPC>}]" 

1120 IF INKEY$="« THEN GOTO 1120 
1130 CLS 
1135 LET PO=0 
1140 FOR Q=1 TO 4 

1150 LET PO-PO+ABS (100»W(Q)-N(Q)) 
1160 NEXT Q 

1170 IF PO>1450 THEN GOTO 1500 
1200 PRINT "[{12»<SPC>}B0NUS{15»<SP 
C>}]" 

1210 PRINT AT 2,0;"IHR ERGEBNIS WAR 
GUT.{11»<SPC>}VER- UND EINKAU 
FSZAHLEN WAREN UNGEFAEHR OLE 
ICH." 

1220 LET U=INT (RND •5000)+8000 


1230 PRINT "SIE ERHALTEN EINEN BONÜ 
s V0N{4»<spc>}[ ]";u;" dm[ ]« 
1240 LET G-G+U 

1250 PRINT "IHR KONTOSTAND:«;G;« DM 

II 

1260 PRINT AT 9 1 0 ; ** [ { 6»<SPC>} EINE T 
ASTE DRUECKEN{7»<SPC>}]" 

1270 IF INKEY$="« THEN GOTO 1270 
1280 GOTO 210 

1500 PRINT "«{13»H}»ABZUG«{ 14»H} 
>>" 

1510 PRINT AT 2,0;"IHR ERGEBNIS WAR 
SCHLECHT.!6»<SPC>}VER- UND EI 
NKAUFSZAHLEN LAGEN WEIT AUSE 
INANDER." 

1515 PRINT «SIE BEKOMMEN ZWAR DEN G 
EWINN DERVERKAÜFTEN WARE,MUESS 
EN ABER" 

1520 LET S-INT (RND •l2000)+5000 
1530 PRINT "TROTZDEM EINEN VERLUST 
V0N{6»<SPC>}«H>>";S;" DM<<H>> 
HINNEHMEN." 

1540 LET G-G-S 

1550 PRINT "IHR KONTOSTAND;G;« DM 

n 

1560 PRINT AT 11,0;«<<{7»H}>>EINE T 
ASTE DRUECKEN<<{6»H}>>« 

1570 IF INKEY$="" THEN GOTO 1570 
1580 IF G<=0 THEN GOTO 8500 
1590 GOTO 210 
2000 CLS 

2010 FOR Q»8 TO 54 
2020 PLOT Q,38 
2030 PLOT Q,6 
2040 NEXT Q 
2050 FOR Q=6 TO 38 
2060 PLOT 8,Q 
2070 PLOT 54,Q 
2080 NEXT Q 
2090 FOR Q=15 TO 40 
2100 PLOT Q,11 
2110 PLOT Q,333 
2120 NEXT Q 
2130 FOR Q=13 TO 31 
2140 PLOT 13»Q 
2150 PLOT 42,Q 
2160 NEXT Q 
2170 PLOT 14,12 
2180 PLOT 41,12 
2190 PLOT 14,32 


Eine Publikation von CHIP 


11 






Wirtschafts-Simulation 


2200 PLOT 41,32 

2210 FOR Z=44 TO 52 

2220 FOR Q»23 TO 34STEP 2 

2230 PLOT Z,Q 

2240 NEXT Q 

2250 NEXT Z 

2260 FOR Q-10 TO 20STEP 2 

2270 PLOT 45,0 

2280 NEXT Q 

2290 PLOT 49,10 

2300 PLOT 49,13 

2310 PLOT 49,16 

2315 PRINT AT 11,10[WERBUNG]« 

2320 FOR 0=1 TO 5 

2340 PRINT AT 9,8:"111»<SPC>)" 

2350 GOSUB 9900 

2360 PRINT AT 9,8:"MAC RONALDS" 

2370 GOSUB 9900 

2380 PRINT AT 9,8;"[MAC RONALDS]" 
2390 GOSUB 9900 
2400 NEXT 0 

2410 PRINT AT 21,0i"[{6»>}EINE TAST 
E DRUECKEN{7»<}]" 

2420 IF INKEI$="" THEN GOTO 2420 
2430 CLS 

2440 PRINT «[»>HAC RONALDS FERNSEH 
WERBUNG<<<]" 

2450 PRINT AT 2,0:"SIE HABEN NUN DI 
E MOEGLICHKEIT FERNSEHWERBUNG 
ZU BETREIBEN.{4»<SPC>}1 SEK. 
KOSTET SIE 1000 DM.{6*<SPC>}DI 
E WERBUNG WIRKT SICH{10»<SPC>} 
NATUERLICH AUF DIE VERKAUFS-{4 
•<SPC>}ZAHLEN AUS." 

2460 PRINT «GEBEN SIE DIE ANZAHL DE 
R{8»<SPC>)SEKUNDEN EIN DIE SIE 
WERBEN{5»<SPC>}WOLLEN." 

2470 PRINT "WENN SIE NICHT WERBEN W 
0LLEN(4»<SPC>}GEBEN SIE ""0"" 
EIN." 

2475 PRINT "IHR KONTOS!AND:";G:" DM 
11 

2480 INPUT L 

2485 IF L=0 THEN GOTO 2530 
2490 LET G*G-L«1000 
2500 IF G<=0 THEN GOTO 8500 
2510 LET T*528+L»50 
2520 LET YU=1 

2530 PRINT AT 21,0;«[{6«>}EINE TAST 
E DRUECKEN{7»<}]” 

2540 IF INKEY$="” THEN GOTO 2540 
2550 GOTO 1000 

3000 PRINT ”[{9**}TEILHABERSCHAFT{8 

3010 PRINT AT 2,0;«IHNEN WIRD EINE 
TEILHABERSCHAFT VON 50.000 DM 
ANGEBOTEN." 

3020 PRINT AT 5,0;"SIE HABEN NUN 3 
MOEGLICHKEITEN:" 

3030 PRINT SIE LEHNEN SIE AB" 

3040 PRINT ,,"2. SIE NEHMEN SIE AN 
UND GEBEN{5»<SPC>}AM ENDE 50 P 
ROZENT VON IHREM{4»<SPC>}GEWIN 
N AB" 

3050 PRINT ,,"3. SIE NEHMEN SIE AN 
UND RIS-{6«<SPC>}KIEREN,DASS I 
HR TEILHABER MIT DER KASSE T 
ÜERMT" 

3060 PRINT i4»,}"GEBEN SIE DIE ENTS 
PRECHENDE ZAHLEIN;" 

3065 PRINT "(NR.2 KOENNEN SIE NUR E 
INMAL IM GANZEN SPIEL WAEHLEN) 

II 

3070 INPUT M 

3075 IF M=2 AND XY=1 THEN GOTO 3070 
3080 IF M=1 THEN GOTO 1000 
3090 IF M=3 THEN GOTO 3200 
3100 CLS 
3105 LET XY=1 

3110 PRINT "IHR KONTOSTAND ERHOET S 
ICH UM 50.000 DM." 

3120 LET G=G+5{4«0} 

3130 PRINT "IHR KONTOSTAND:";G;" DM 

II 

314ia PRINT {4«,}"[{6»«}EINE TASTE D 


RUECKEN{7»»}]" 

3150 IF INKEY$="" THEN GOTO 3150 
3160 GOTO 1000 
3205 GOSUB 9700 

3350 IF A$="PECH" THEN GOTO 3390 
3360 PRINT ,,"SIE ERHALTEN 50.000 D 
M OHNE JEDEVERPFLICHTUNG." 

3370 LET G-G+5l4»0) 

3380 PRINT "IHR KONTOSTANDi";G;" DM 
11 

3390 PRINT AT 10,0;"[{6**}EINE TAST 
E DRUECKEN{7»«}]" 

3400 IF INKEY$="" THEN GOTO 3400 
3410 IF A$="PECH" THEN GOTO 8500 
3420 GOTO 1000 

4000 PRINT "[ ]<<H>>[ ]<<H>>[ ]<<H> 
>[ ]<<H>>[GEBURTSTAGSPARTY]<<H 
>>[ ]<<H>>[ ]<<H>>[ ]<<H>>[ ]" 
4010 PRINT AT 2,0;"EINE GESELLSCHAF 
T WILL FEIERT INIHREM GESCHAEF 
T EINEN GEBURTSTAG" 

4020 LET A=INT (RND «2{4«0})+2000 1 
4030 LET B=INT (RND •2{4«0})+1 
4040 PRINT AT 5,0;"BRUTTOGEWINNA 
;" DM","UNK0STEN{4«<SPC>}:";B; 
" DM","NETTOGEWINN ;";A-B;" DM 

II 

4050 LET G=G+A-B 

4060 PRINT ,,"IHR KONTOSTANDG;" 
DM" 

4070 PRINT ]<<H>>[ ]<<H>>[ ]<< 

H>>[EINE TASTE DRUECKEN]<<H>>[ 
]<<H>>[ ]<<H>>[ ]<<H>>" 

4080 IF INKEY$="" THEN GOTO 4080 
4090 GOTO 1000 

5000 PRINT "[{8«-}UEBERSCHWEMMUNG{9 
*-}]" 

5010 PRINT AT 2,0;"IHR GESCHAEFT IS 
T OPFER EINER UEBERSCHWEMMUN 
G GEWORDEN." 

5020 LET C=INT (RND «2{4*0})+3{4«0} 
5030 LET D=INT (RND »2{4*0}) + 1 {4*0} 
5040 PRINT ,,"GESAMTSCHADEN;";C;" D 
M","VERSICHERUNG :";D;" DM","N 
ETTOSCHADEN :";C-D;" DM" 

5050 LET G^G-C+D 

5060 PRINT ,,"IHR KONTOSTANDG;" 
DM" 

5070 PRINT ,,"[{6*-}EINE TASTE DRUE 
CKEN{7*-}]" 

5080 IF INKEY$="" THEN GOTO 5080 
5085 IF G<=0 THEN GOTO 8500 
5090 GOTO 1000 

6000 PRINT "<<{9*5}>>[PERSONALSTREI 
K]<<{9*8}>>" 

6010 PRINT AT 2,0;"IHR PERSONAL STR 
EIKT.{11*<SPC>}ES FORDERT HOEH 
ERE LOEHNE." 

6020 LET E=INT (RND » 1 {4*0})+5000 
6030 PRINT AT 5,0;"SIE HABEN 2 MOEG 
LICHKEITEN;" 

6040 PRINT ,,"1. EINEN DADURCH BEDI 
NGTENi9*<SPC>}VERLUST VON ";E; 
" DM"," ZU AKZEPTIEREN." 

6050 PRINT ,,"2. DIE FORDERUNG ABZU 
LEHNEN UND{4*<SPC>}RISKIEREN D 
AS SIE PLEITE{8*<SPC>}MACHEN.» 
6060 PRINT {4»,}"GEBEN SIE DIE ENTS 
PRECHENDE ZAHLEIN;"; 

6070 INPUT I 

6080 IF 1=2 THEN GOTO 6500 
6090 CLS 

6100 PRINT "IHR PERSONAL ARBEITET W 
lEDER." 

6105 LET G=G-E 

6110 PRINT ,,"IHR KONTOSTAND:";G;" 
DM" 

6120 PRINT , ,"«{6»8}>>[EINE TASTE 
DRUECKEN]<<{7*8}>>" 

6130 IF INKEY$="" THEN GOTO 6130 
6140 IF G<=0 THEN GOTO 8500 
6150 GOTO 1000 
6500 GOSUB 9700 

6510 IF A$="PECH" THEN GOTO 6530 
6520 PRINT {4«,}"IHR PERSONAL ARBEI 


TET OHNE LOHN-ERHOEHUNG WEITER 

6530 PRINT , ,"<<{6»8}»[EINE TASTE 
DRUECKEN]<<{7*8}»" 

6540 IF INKEY$="" THEN GOTO 6540 
6550 IF A$="PECH" THEN GOTO 8500 
6560 GOTO 1000 
7000 CLS 

7020 FOR Q=1 TO 11 
7030 PRINT "[ ]«H>>[ ]«H»[ ]«H> 
>[ ]<<H>>[ ]<<H>>[ ]«H»[ ]« 
H>>[ ]<<H>>[ ]«H>>[ ]«H»[ ] 
<<H>>[ ]<<H>>[ ]<<H>>[ ]«H»[ 
]<<H>>[ ]<<HH>>[ ]«H»[ ]«H 
>>[ ]<<H>>[ ]<<H>>[ ]<<H»[ ]< 
<H>>[ ]<<H»[ ]<<H>>[ ]«H»[ 
]<<H>>[ ]<<H>>[ ]«H>>[ ]«H» 
[ ]<<H>>[ ]«H»[ ]" 

7040 NEXT Q 

7041 LET V=1 

7042 LET X=20 
7050 FOR Q=1 TO 3 

7060 PRINT AT V,0;"[ ]<<H>>[ ]«H>> 
[ ]<<H>>[ ]<<H>>[ ]<<H»[ ]«H 
>>[ ]<<H>>[ 3<<h>>[ ]«H»[ ]< 
<H>>[ ]<<H>>[ ]<<H>>[ ]<<H>>[ 
]<<H>>[ ]<<H>>[ ]<<H>>" 

7070 PRINT AT X,0;"<<H>>[ ]«H>>[ ] 
<<H>>[ ]<<H>>[ ]<<H>>[ ]«H»[ 
]<<H>>[ ]<<H>>[ ]<<H»[ ]«H> 
>[ ]<<H>>[ ]«H>>[ ]<<H»[ ]« 
H>>[ ]<<H>>[ ]<<H>>[ ]" 

7080 LET V=V+4 

7090 LET X=X-4 

7120 NEXT Q 

7130 FOR Q=1 TO 5 

7140 PRINT AT 10,12;"[9.WOCHE]« 

7150 PRINT AT 11,12;"9.WOCHE" 

7160 GOSUB 9900 

7170 PRINT AT 10, 12;"9.WOCHE" 

7180 PRINT AT 11,12;"[9 - WOCHE]" 

7190 GOSUB 9900 
7200 NEXT Q 
7210 CLS 

7215 PRINT "HERZLICHEN GLUECKWUNSCH 
.{8*<SPC>}SIE HABEN ES GESCHAF 
FT" 

7220 IF M=2 THEN LET G=G/2 
7230 IF G<5{4*0) THEN GOTO 7500 
7240 IF G>5{4»0} THEN GOTO 7400 
7400 IF G>1{5*0) THEN GOTO 7450 
7410 PRINT "UND SOGAR NOCH ";G-5{4* 
0};" DM","GEWINN GEMACHT." 

7420 GOTO 7600 

7450 PRINT "SIE SIND EIN FINANZGENI 
E.{7*<SPC>}SIE HABEN ";G-5l4»0 
};" DM GEWINN{7*<SPC>}GEMACHT. 

II 

7460 GOTO 7600 

7500 PRINT "SOLLTEN ABER TROTZDEM D 
AS{7»<SPC>}GESCHAEFTSLEBEN VER 
LASSEN DENN SIE HABEN ";5{4*0 
}-G;" DM","VERLUST GEMACHT" 
7600 PRINT AT 21,0;"WOLLEN SIE NOCH 
MAL SPIELEN(J/N)?" 

7610 IF INKEY$="" THEN GOTO 7610 
7620 IF INKEY$="J" THEN RUN 
7630 STOP 
8500 CLS 

8510 FOR Q=1 TO 11 
8520 PRINT "<<{64»H}>>" 

8530 NEXT Q 
8535 LET R=21 
8540 FOR Q=0 TO 10 
8545 PRINT AT Q,15;"E" 

8550 PRINT AT R, 16;"I" 

8555 LET R=R-1 

8560 PRINT AT Q, 15;" «H»" ; AT R+1,1 
6;"<<H>>" 

8565 NEXT Q 

8570 PRINT AT 11,15;"EI" 

8575 LET R=4 
8580 LET K=27 
8585 LET J=21 
8590 FOR Q=1 TO 11 
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Wilischafls-Simulcrtion 


8595 PRINT AT Q,R;"L«;AT J,K;*»T" 
8600 LET J*J-1 
8605 LET K-K-1 
8610 LET R=R+1 

8615 PRINT AT Q ,R-1;" «H»" ; AT J+1, 
K+1;"«H»" 

8620 NEXT Q 

8625 PRINT AT 11,14;”LEIT” 

8630 LET R»30 

8635 FOR Q»1 TO 13 

8640 PRINT AT 11,Q;«P";AT 11,R;"E« 

8645 LET R=R-1 

8650 PRINT AT 11 ,Q; "«H»” ; AT 11,R+ 
8655 NEXT Q 

8660 PRINT AT 11,13;"PLEITE" 

8665 FOR Q=1 TO 25 

8670 NEXT Q 

8675 FOR Q=1 TO 20 

8680 PRINT AT 11,13;"PLEITE" 

8695 PRINT AT 11,13[PLEITE]« 

8700 NEXT Q 

8705 PRINT AT 21,12;«[NOCHMAL?]" 

8710 IF INKEY$="« THEN GOTO 8710 

8715 IF INKEY$="J« THEN RÜN 

8720 STOP 

9000 CLS 

9010 LET V=20 

9030 FOR Q=1 TO 11 

9040 PRINT "[{64«<SPC>}]« 

9050 NEXT Q 

9060 PRINT AT 21,13;"[(C) BY JOCHEN 
SASSE]" 

9070 FOR Q=0 TO 9 

9080 PRINT AT Q,11;"[M C R N L S]" 
9090 PRINT AT V,12;«[A 0 A D]« 

9100 FOR H*1 TO 6 
9105 NEXT H 

9110 PRINT AT V,12;"[{9»<SPC>)]" 
9115 PRINT AT Q,11;«[{11»<SPC>}]" 
9120 LET V=V-1 
9125 NEXT Q 

9130 PRINT AT 10,11;"[MAC RONALDS]« 

9135 FOR Q=1 TO 25 

9140 NEXT Q 

9145 FOR Q=1 TO 3 

9150 PRINT AT 10,0;«[{6»<SPC>}M A C 
RONALD S{6«<SPC>}]« 

9155 FOR H=1 TO 10 
9160 NEXT H 

9165 PRINT AT 10,0;"[ M A C{4»<SP 
C>}R 0 N A L D S ]« 

9170 FOR H=1 TO 10 
9175 NEXT H 

9180 PRINT AT 10,0;«[{6»<SPC>}M A C 
RONALD S{6*<SPC>}]" 

9185 FOR H=1 TO 10 
9190 NEXT H 

9195 PRINT AT 10,0;"[{10«<SPC>}MAC 
RONALDS{11»<SPC>}]" 

9200 FOR H=1 TO 10 
9205 NEXT H 
9207 NEXT Q 

9210 PRINT AT 17,8;«[SPIELANLEITUNG 
?]" 

9215 IF INKEY$="" THEN GOTO 9215 
9220 IF INKEY$=«N" THEN RETURN 
9225 CLS 

9235 PRINT TAB 10 ;«« { 13*H} »" 

9240 PRINT TAB 10;««H>>[MAC RONALD 
S]«H»" 

9245 PRINT TAB 10 ;««{ 13*H}»« 

9250 PRINT ,,"<<{33*H}>>SIE UEBERNE 
HMEN FUER 9 WOCHEN «HH»EINE 
MAC RONALDS ZWEIGSTELLE. <<H>> 

II 

9255 PRINT «<<H>>IHRE AUFGABE IST E 
S WARE EIN- <<HH»ZUKAUFEN UND 
EINEN MOEGLICHST «HH»GROSSE 
N GEWINN ZU ERZIELEN. «H»" 
9260 PRINT "«H»DABEI HABEN SIE JE 
DOCH EINIGE <<HH>>KNIFFLIGE SI 
TUATIONEN ZU BE- <<HH»WAELTI 
GEN.";TAB 31;"«H»" 

9265 PRINT "«H»SIE MUESSEN Z.B. E 


NTSCHEIDEN <<HH»OB SIE EINE 
TEILHABERSCHAFT <<HH>>ANNEHM 
EN ODER IM FERNSEHEN{4*<SPC>}< 
<HH»WERBEN WOLLEN.«;TAB 31;"< 
<H»« 

9270 PRINT ««H»ALSO STUERZEN SIE 
SICH IN DIE <<HH>>GESCHAEFTSWE 
LT UND LASSEN SIE «HH»SICH N 
ICHT ENTMUTIGEN WENN SIE«HH» 
MAL EINE PLEITE ERWISCHT.{5*<S 
PC>}«{33*H}»« 

9280 IF INKEY$=«« THEN GOTO 9280 

9285 RETURN 

9400 FOR Q=1 TO 4 

9410 LET P(Q)=(INT (RND •1000))+T 

9420 NEXT Q 

9430 RETURN 

9500 PRINT 

9505 GOSUB 9600 

9510 PRINT "POMMES FRITESi4».}«;" " 
AND N(1)<1000;N(1);« (";W(1)» 
100 ;")" 

9520 PRINT "HAMBURGER{8».)«;" " AND 
N(2)<1000;N(2);« (";W(2)«100; 

II )ii 

953t) PRINT ''CHEESEBORGER{5*.)”;" " 
AND N(3)<it)t)e):N(3);" (";w(3)*i 
e)t)j")" 

954t) PRINT “BIG MAECS{ 8»." AND 
N(4)<ie)t)«;N(4);" (“;w(4)*ie)t); 

M )M 

955t) PRINT 


956t) PRINT "IN KLAMMERN:EINGEKAUPTE 
WARE" 

957t) RETURN 
96t)l) FOR Q»1 TO 4 

9611) LET N(Q)»INT (RND •P(Q)+RND »7 

66 ) 

9615 NEXT Q 
9626 RETURN 
9766 CLS 

971t) PRINT "SIE SIND EIN GROSSES RI 
SIKO{5»<SPC>}EINOEGANGEN"; 

9715 FOR Q=1 TO 3 
972t) GOSUB 9966 
973t) PRINT 
974t) NEXT Q 
975t) GOSUB 9966 
976t) PRINT "UND"; 

9776 GOSUB 9966 
978t) FOR Q=1 TO 3 
9796 PRINT 
980t) GOSUB 9900 
9810 NEXT Q 
9820 LET A$="PECH" 

9830 IF RND >.7 THEN LET A$="GLUECK 

n 

9840 PRINT AT 4,0;"HABEN ";A$;" GEH 
ABT." 

9850 RETURN 
9900 FOR H-1 TO 12 
9910 NEXT H 
9920 RETURN 



_ 

aSIE UEBERNEHMEN FUER 9 UOCHEN 

Heine mrc ronrlds zueigstelle. 
Hihre rufgrbe ist es urre ein- 

iZUKRUFEN UND EINEN HOEGUICHST 

Horossen geuinn zu erzielen. 

IDRBEI HABEN SIE JEDOCH EINIGE 
IIkNIFFLIGE SITUATIONEN ZU BE- 
lUAELTIGEN. 

ISIE MUESSEN Z.B. ENTSCHEIDEN 
&B SIE EINE TEILHABERSCHAFT 
IaNNEHMEN oder im FERNSEHEN 
R6EN UOLLEN. 

IalSO STUERZEN SIE SICH IN DIE 
Igeschaeftsuelt und lassen sie ^ 

• ICH NICHT ENTMUTIGEN DENN SIEl 


1AL 


CNE 


PLEITE 


iRU: 


iHT 


5TRTI5TIK 


POMMES FRITES.1275 X 

HAMBURGER. 566 X 

CHEESEBURGER.14-21 X 

BIG MAECS.1504- X 


UIEUIELE PCK. KAUFEN SIE EIN 7 

POMMES FRITES..100 POR.=110 DM B 

HAMBURGER.100 STK. =170 DM 

CHEESEBURGER ... 1O0 -STK. =135 DM 
BIG MAECS.100 STK . =300 DM 


IHR KONTO-STAND ; 50000 DM 
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Grafik 


iLirTEILMHBEPSCHRFT-**)-^^ ^ ^ * 


IHNEN UIRD EINE TEILHflBERSCHRFT 
UON 50.000 DM RNGEBOTEN. 

SIE HRBEN NUN 3 MOEGLICHKEITEN: 

1. SIE LEHNEN SIE RB 

2. SIE NEHMEN SIE RN UND GEBEN 
RM ENDE 50 PROZENT UON IHREM 
GEUINN RB 


IHR ERGEBNIS URR SCHLECHT. 

UER- UND EINKRUFSZRHLEN LRGEN 
UEIT RUSEINRNDER. 

SIE BEKOMMEN ZURR DEN GEUINN DER 
UERKRUFTEN URRE,MUESSEN RBER 
TROTZDEM EINEN UERLUST UON 
^S4S6 DMgg HINNEHMEN. 

IHR KONTOSTRND:15690 DM 

^^^lälgt^(^;EINE TRSTE DRUECKENfiBHffiÄBMK 


3. SIE NEHMEN SIE RN UND RIS- 

KIEREN,DRSS IHR TEILHABER MIT 
DER KRSSE TUERMT 


GEBEN SIE DIE ENTSPRECHENDE ZAHL 
EIN : 

(NR.2 KOENNEN SIE NUR EINMAL IM 
GANZEN SPIEL UREHLEN) 


SIE HRBEN DIE 

2. UOCHE UEBERSTRNDEN.. 


IIHREUEftKRÜF 5 ZAHLEN 


POMMES FRITES.... 571 (100) 

HRMBURGER.1512 (20000) 

CHEESEBURGER.1117 (100) 

BIG MflECS.14-50 (300) 


M C R N L S 


R O R D 

(C) BY UOCHEN SRSSS 


IN KLAMMERN:EINGEKflUFTE URRE 


ERGEBNI: 


SIE HRTTEN 
471 POMMES FRITES ZU UENIG 
1S48S HAMBURGER ZU UIEL 
1017 CHEESEBURGERZU UENIG 

12 SB B I S 


EINE TA5T 


WENN IHR LISTING aus einer 
Fotokopie besteht, läuft dieses 
Programm beim Abtippen nicht! 


Elekironischer Zeichenslifl 


Rechner; ZX-81 
Programmname: Plotprogramm 
Programmlänge; 200 Bytes 
Programmiersprache; BASIC 
Zubehör; - 

Mit diesem kurzen Programm lassen 
sich einfache Figuren auf den Bild¬ 


schirm durch Bewegen des Cursors 
zeichnen. Die Steuerung des Cursors 
liegt auf den Tasten A, X, D, ¥. 
Den Cursor bewegen, ohne daß ge¬ 
zeichnet wird, können Sie mit den 
Tasten 5, 6, 7, 8. Auf diese Weise 

können Sie auch Zeichen wieder 
löschen. Jochen Sasse 


1 REM PLOT 

2 REM FUER CHIP SPECIAL 

3 REM VON JOCHEN SASSE 
10 LET A=31 

20 LET B=21 
30 PLOT A,B 
40 UNPLOT A,B 

50 LET A=A+(1 AND INKEY$=''8”)-( 1 AN 
D INKEY$=”5”) 


60 

LET B=B+(1 

AND 

INKEY$="7'')-( 1 

AN 


D INKEY$=» 

6«) 



70 

PLOT A,B 




80 

LET A=A+(1 

AND 

INKEY$="D'')-( 1 

AN 


D INKEY$=" 

A") 



90 

LET B=B+(1 

AND 

INKEY$=»'W«)-( 1 

AN 


D INKEY$=«X'') 
100 GOTO 30 
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WeHhiMe 




SuperloHo 


Rechner: 
Programmname: 
Programmlänge: 
Programmiersprache: 


ZX-81 
Superlotto 
1000 Bytes 
Assembler 


Zubehör: 


1ökByte-Erweiterung 


"7 aus 38" wählen. Die Lotto-Zahlen 
werden durch die <0>-Taste ini¬ 
tiiert . 

Hinweis zur Programmeingabe 


Saßen Sie auch schon - verzweifelt 
am Bleistift kauend - über einem 
Lottozettel . Sie konnten sich 
nicht entscheiden , welche Zahl Sie 
nun am Besten anstreichen? Dieses 
Programm kann Sie dieser schwieri¬ 
gen Entscheidung entheben. In Se¬ 
kundenschnelle werden die vom Rech¬ 
ner ermittelten Zufallszahlen in 
einer Graphik, die im Aussehen 
einem Lottoschein gleicht, ausgege¬ 
ben. Auf Wunsch können Sie jeder¬ 
zeit, durch Druck der Tasten <6> 
oder <7>, zwischen "6 aus 49" und 


Gehen Sie bitte wie in dem Artikel: 
"So geben Sie Maschinenprogramme 
ein" beschrieben vor. 

Liste der Variablen: 

A=2*347 
B=190 
0=2 
D=118 

E=16514 bis 17214 
Start: RAND USR 16538 

Helmut Dursch 
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Termine 


1 REM 

701 

Bytes reserviert! 



16722 

21 

53 

42 

3E 

20 

OE 

OA 

06 

0132 

16970 

C6 

07 

23 

23 

23 

3D 

20 

FA 

028D 

2 SAVE 

"s[l; 

tf 







16730 

07 

FE 

IC 

28 

11 

77 

2B 

2B 

0227 

16978 

36 

97 

21 

E7 

43 

35 

28 

07 

027C 

3 SLOW 









16738 

2B 

OD 

20 

03 

OE 

OA 

3D 

10 

OOCO 

16986 

CB 

46 

28 

DA 

79 

18 

D9 

3E 

0 3BB 











16746 

FO 

A7 

ED 

52 

18 

E9 

C9 

CD 

056D 

16994 

32 

C3 

F7 

42 

76 

76 

76 

76 

0406 











16754 

85 

42 

3E 

01 

D9 

2A 

34 

40 

027D 

17002 

76 

76 

76 

76 

76 

76 

8D 

8D 

03DE 

1651M 

76 

00 

22 

00 

26 

3A 

38 

00 

0130 

16762 

6F 

22 

34 

40 

D9 

ED 

5F 

C6 

03F0 

17010 

8D 

B8 

BA 

B5 

AA 

B7 

96 

Bl 

055C 

16522 

20 

25 

00 

00 

B8 

BA 

B5 

AA 

0316 

16770 

2C 

30 

FC 

3C 

5F 

C6 

05 

47 

0305 

17018 

B4 

B9 

B9 

B4 

8D 

8D 

8D 

8D 

050E 

16530 

B7 

96 

Bl 

B4 

B9 

B9 

B4 

76 

054E 

16778 

2A 

34 

40 

ED 

5F 

84 

83 

30 

0321 

17026 

B8 

BA 

B5 

AA 

B7 

96 

Bl 

B4 

0583 

16538 

21 

66 

42 

22 

OC 

40 

21 

99 

01F1 

16786 

FD 

3C 

5F 

C6 

04 

4F 

ED 

5F 

03FD 

17034 

B9 

B9 

B4 

8D 

8D 

8D 

76 

8D 

04D0 

16546 

40 

11 

73 

40 

01 

18 

00 

ED 

020A 

16794 

94 

83 

30 

FD 

3C 

C6 

03 

57 

03A0 

17042 

00 

00 

00 

00 

00 

00 

00 

00 

0000 

16554 

B8 

EB 

F9 

21 

18 

43 

11 

73 

039C 

16802 

18 

30 

3E 

EF 

DB 

FE 

FE 

7F 

04CB 

17050 

00 

00 

00 

00 

00 

00 

00 

00 

0000 

16562 

42 

D5 

E5 

01 

lA 

00 

ED 

BO 

03B4 

16810 

20 

35 

2D 

20 

F5 

25 

6C 

2D 

0255 

17058 

00 

00 

00 

00 

00 

00 

00 

00 

0000 

16570 

El 

Dl 

E5 

3E 

02 

D9 

Dl 

21 

04A2 

16818 

20 

FO 

ID 

63 

25 

6C 

2D 

20 

026E 

17066 

00 

00 

00 

00 

00 

00 

8D 

76 

0103 

16578 

68 

40 

01 

OB 

00 

ED 

BO 

13 

0264 

16826 

E9 

15 

5A 

ID 

63 

25 

6C 

2D 

0296 

17074 

8D 

00 

38 

39 

26 

37 

39 

OE 

01A2 

16586 

13 

13 

13 

3D 

20 

Fl 

26 

28 

01D5 

16834 

20 

EO 

OD 

51 

15 

5A 

ID 

63 

024D 

17082 

39 

26 

38 

39 

2A 

OB 

IC 

OB 

012 c 

16594 

05 

48 

3E 

EF 

DB 

FE 

1F 

30 

03A2 

16842 

25 

6C 

2D 

20 

D5 

05 

48 

OD 

020D 

17090 

17 

00 

2B 

34 

37 

32 

26 

39 

013E 

16602 

07 

09 

38 

F6 

D9 

EB 

18 

Dl 

03EB 

16850 

51 

15 

5A 

ID 

63 

25 

6C 

2D 

OlFE 

17098 

OE 

OB 

22 

16 

23 

OB 

00 

8D 

OlOC 

16610 

11 

E6 

43 

01 

62 

01 

21 

5C 

021B 

16858 

20 

C8 

3A 

03 

43 

18 

A5 

E5 

030A 

17106 

76 

8D 

00 

00 

00 

00 

00 

00 

0103 

16618 

40 

AF 

08 

•22 

OC 

40 

21 

65 

01EB 

16866 

21 

03 

43 

1F 

30 

2C 

CB 

5F 

020C 

17114 

00 

00 

3B 

2E 

2A 

31 

00 

00 

00C4 

16626 

42 

ED 

B8 

01 

76 

16 

21 

6E 

0303 

16874 

20 

11 

36 

2C 

21 

5E 

40 

36 

0188 

17122 

00 

00 

2C 

31 

3A 

2A 

28 

30 

0119 

16634 

42 

36 

8D 

23 

10 

FB 

71 

C3 

0367 

16882 

22 

2E 

64 

36 

20 

23 

36 

25 

0188 

17130 

00 

00 

00 

00 

00 

00 

00 

00 

0000 

16642 

F2 

42 

11 

76 

00 

21 

6E 

42 

028C 

16890 

El 

18 

82 

CB 

57 

20 

10 

36 

0303 

17138 

8D 

76 

8D 

00 

00 

00 

00 

00 

0190 

16650 

OE 

16 

06 

16 

2B 

73 

2B 

72 

017B 

16898 

20 

21 

5E 

40 

36 

23 

2E 

64 

01CA 

17146 

00 

00 

00 

00 

00 

00 

00 

00 

0000 

16658 

10 

FC 

OD 

20 

F5 

E5 

3E 

80 

03D1 

16906 

36 

1F 

23 

36 

24 

18 

E9 

El 

02B4 

17154 

00 

00 

00 

00 

00 

00 

00 

00 

0000 

16666 

lE 

2F 

OE 

08 

06 

16 

77 

23 

0119 

16914 

18 

98 

D9 

3A 

35 

40 

BC 

D9 

03CD 

17162 

00 

00 

00 

00 

00 

00 

00 

00 

0000 

16674 

10 

FC 

19 

OD 

20 

F6 

El 

OE 

0337 

16922 

28 

F5 

C5 

D5 

AF 

CB 

56 

20 

04A7 

17170 

00 

8D 

76 

8D 

8D 

8D 

8D 

8D 

03C4 

16682 

16 

06 

08 

77 

23 

23 

23 

10 

0114 

16930 

OC 

04 

3E 

27 

90 

4F 

ED 

5F 

02A0 

17178 

8D 

8D 

8D 

8D 

8D 

8D 

8D 

8D 

0468 

16690 

FA 

2B 

OD 

20 

F4 

21 

ä4 

40 

034B 

16938 

91 

30 

FD 

81 

80 

F5 

CD 

85 

0506 

17186 

8D 

8D 

8D 

8D 

8D 

8D 

8D 

8D 

0468 

16698 

IC 

3E 

ID 

OE 

07 

06 

07 

FE 

0197 

16946 

42 

21 

E7 

43 

36 

07 

CI 

78 

0303 

17194 

8D 

8D 

8D 

8D 

8D 

8D 

8D 

8D 

0468 

16706 

26 

20 

02 

3E 

IC 

77 

23 

23 

015F 

16954 

A7 

28 

17 

21 

44 

40 

11 

45 

01E1 

17202 

8D 

8D 

8D 

76 

76 

76 

76 

76 

03F5 

16714 

23 

3C 

10 

F3 

19 

OD 

20 

ED 

0295 

16962 

00 

19 

D6 

07 

28 

02 

30 

F9 

0249 

17210 

76 

76 

76 

76 

76 

00 

00 

00 

024E 


Kalender 


Rechner: ZX-81 
Programmname: Kalender 
Programmlänge: 2000 Bytes 
Programmiersprache: BASIC 
Zubehör: 1ökByte-Erweiterung 

Drucker 

Sollten Sie zu den Menschen ge¬ 
hören, die oft die Wochentage oder 
das Datum durcheinanderschmeißen 
und sich das eigentlich nicht leis¬ 
ten können, dann sei Ihnen geraten: 
Greifen Sie zu Ihrem elektronischen 
Kalender. Was liegt näher, als sich 


von einem "Hirn” ohne Gedächtnis¬ 
schwund helfen zu lassen? Natürlich 
sollten Sie Ihren ZX-81 zuerst mit 
diesem Programm füttern. Sonst wird 
auch er eine schlechte Figur 
machen. Doch kaum haben Sie dies 
getan, ist er bereit. Ihnen zu 
einem vorgegebenen Datum den 
Wochentag zu bestimmen: Siehe Pro¬ 
grammteil "Wochentag”. Oder Sie 
lassen sich einen Kalendermonat, 
Programmteil "Kalender”, ausdruk- 
ken. 

Markus Förster 


1 REM KALENDER 

2 REM FUER CHIP SPECIAL 

55 

60 

IF INKEY$="S” THEN GOTO 700 

IF INKEY$=”K” THEN GOTO 300 

230 

UECKEN.” 

IF INKEY$=”” THEN GOTO 

230 

3 REM VON MARKUS FOERSTER 

65 

IF INKEY$="L” THEN GOTO 600 

210 

CLS 


9 CLS 

70 

GOTO 50 

250 

RUN 


12 DIM T$(7,10) 

100 

CLS 

300 

CLS 


13 LET T$(7)="[SAMSTAG]” 

110 

PRINT ”[ WOCHENTAG ]” 

301 

PRINT ”[ KALENDER ]” 


14 LET T$(l)="iSONNTAG]” 

120 

PRINT ,,”TAG ?” 

302 

DIM M$( 12,10) 


15 LET T$(2)=”[MONTAG]” 

130 

INPUT T 

303 

LET M$(!)=”[JANUAR ]” 


16 LET T$(3)=”[DIENSTAG]” 

140 

PRINT ,,«MONAT ?” 

301 

LET M$(2)=”[FEBRUAR ]” 


17 LET T$(4)=”[MITTWOCH]” 

150 

INPUT M 

305 

LET M$(3)=”[MAERZ ]” 


18 LET T$(5)=”[D0NNERSTAG]" 

160 

PRINT ,,”JAHR ?” 

306 

LET M$(4)*”[APRIL ]” 


19 LET T$(6)^”[FREITAG]” 

170 

INPUT J 

307 

LET M$(5)=”[MAI ]" 


20 PRINT ”[ KALENDER ]" 

180 

IF J<100 THEN LET J=J+1900 

308 

LET M$(6)=”[JUNI ]” 


30 PRINT ,,”[W] WOCHENTAG BERECHNEN 

185 

GOSUB 800 

309 

LET M$(7)«”[JULI ]” 


II 

190 

PRINT {4*,}”DER ”,T;”.”;M;J 

311 

LET M$(8)=”[AUGUST ]" 


35 PRINT ,,”[K] KALENDER (l MONAT) 

200 

PRINT ,,(”WAR" AND J<1984);(”IS 

312 

LET M$(9)=”isEPTEMBER 

]•' 

ERSTELLEN” 


T” AND J>=1984);” EIN”; 

313 

LET M$(10)=”[OKTOBER ] 

11 

40 PRINT ,,”[S] AUF CASSETTE SAVEN" 

205 

GOSUB 500 

3111 

LET M$(11)=”[NOVEMBER 

]” 

42 PRINT ,,"[L] PROGRAMM LOESCHEN" 

210 

PRINT ,T$(Z) 

315 

LET T=1 


50 IF INKEY$=”W” THEN GOTO 100 

220 

PRINT {4»,}”BITTE EINE TASTE DR 

317 

LET M$(12)=”[DEZEMBER 

]” 
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Knobeln 


320 PRINT ,,«MONAT ?« 

330 INPUT M 

340 PRINT ,,«JAHR ?" 

350 INPUT J 

360 IF J<100 THEN LET J=J+1900 

372 GOSUB Qii 
380 CLS 

382 PRINT « [ ]«;M$(M);TAB 27-LEN ( 
STR$ J);J 

385 PRINT {4»,}« [SO] [MO] [DI] 
[MI] [DO] [FR] [SA]« 

390 LET TA=VAL L$(M*2-1 TO M*2) 

395 PRINT 

396 GOSUB 500 

397 LET TAB=-2+Z*4 
400 FOR X=1 TO TA 
405 PRINT TAB TAB;X; 

410 LET TAB=TAB+4 

415 IF X=9 THEN LET TAB=TAB-1 
420 IF TAB>26 THEN GOSUB 650 
430 NEXT X 

432 IF TAB<3 THEN GOTO 440 
435 PRINT 
437 PRINT 

440 PRINT « [SO] [MO] [DI] [MI] 
[DO] [FR] [SA]« 

445 PRINT AT 21,0;" DRUCKEN ? (J/N 
)" 

450 IF INKEY$="« THEN GOTO 450 
455 IF INKEY$=«N« THEN RUN 
460 PRINT AT 21,0;«{19*<SPC>}« 

465 IF INKEY$=«J« THEN COPY 
470 GOTO 445 

499 STOP 

500 REM [WELCHER WOCHENTAG?] 

505 LET K=INT (.6+(1/M)) 


510 LET L=J-K 
520 LET 0=M+12*K 
530 LET P=L/100 
540 LET Z1=INT (P/4) 

550 LET Z2=INT P 

560 LET Z3=INT ((5»L)/4) 

570 LET Z4=INT (l3*(0+1)/5) 

580 LET Z=Z4+Z3-Z2+Z1+T-1 
590 LET Z=Z-(7»INT (Z/7))+1 
595 RETURN 
600 REM [NEW] 

610 PRINT {4*,}"BITTE EINGABE MIT [ 
J] UND [NEWLINE] BESTAETIGEN« 
615 PRINT ,,«ODER" 

620 PRINT ,,"MIT [NEWLINE] ZURÜECK 
INS MENUE« 

625 INPUT N$ 

630 IF N$="J" THEN NEW 

640 GOTO 1 

650 PRINT 

660 PRINT 

670 LET TAB=1 

680 IF X<9 THEN LET TAB=2 

690 RETURN 

700 REM [SAVE] 

710 CLS 

720 CLEAR 

730 SAVE «KA[L]« 

740 RUN 

800 REM [EINGABEN KONTROLLIEREN] 

805 LET SJ==28 

810 IF J/4=INT (J/4) THEN LET SJ=29 
820 IF J/100=INT (J/100) AND NOT (( 
INT (J/100)/4)=INT (INT (J/100) 
/4)) THEN LET SJ=28 
830 LET L$=«31SJ3130313031313031303 
1 " 


840 IF M<1 OR M>12 OR MOINT M THEN 
GOTO 1000 

850 IF J<1582 OR JOINT J THEN GOTO 
1100 

870 IF T>0 AND T<-VAL L$(M«2-1 TO M 
*2) THEN RETURN 
900 CLS 

910 PRINT "TAG = ";T;« ?« 

920 PRINT ,,«DIESER TAG EXISTIERT N 
ICHT." 

930 PRINT ,,«BITTE EINGABE WIEDERHO 
LEN." 

940 INPUT T 
950 CLS 
960 GOTO 800 
1000 CLS 

1010 PRINT «MONAT = ";M;« ?« 

1020 PRINT ,,«DIESEN MONAT GIBT ES 
NICHT.« 

1030 PRINT ,,»BITTE EINGABE WIEDERH 
ÖLEN.« 

1040 INPUT M 
1050 CLS 
1060 GOTO 800 
1100 CLS 

1110 PRINT «JAHR = «;J;« ?" 

1120 PRINT ,,«MIT DIESER JAHRESZAHL 
KANN ICH« 

1130 PRINT «NICHTS ANFANGEN.« 

1140 PRINT ,,«BITTE EINGABE WIEDERH 
ÖLEN.« 

1150 INPUT J 

1155 I<F J<100 THEN LET J==J+1900 
1160 CLS 
1170 GOTO 800 


ZX-Puzzle 


Rechner; ZX-81 
Programmname: Puzzle 
Programmlänge: 10000 Bytes 
Programmiersprache: BASIC 
Zubehör; 1 ökByte-Erweiterung 


teile werden im Programm ab Zeile 
3000 als Binärcode abgelegt. 

Hans Herrmann 


Auf einem Spielfeld im Format eines 
Schachbrettes müßen Sie aus Einzel¬ 
stücken ein Bild zusammensetzen. 
Die Einzelteile werden zufällig 
durch den Computer angeboten und 
durch Eingabe der Koordinaten auf 
ihren Platz gelegt. Das im Programm 
enthaltene Bild ist natürlich nur 
ein unverbindliches Muster. Sie 
können sich jedoch relativ leicht 
Ihre eigenen Bilder entwerfen, in¬ 
dem Sie sich auf einem karierten 
Blatt das Bildformat mit jeweils 32 
Karos Seitenlänge aufzeichnen. Ein 
Puzzlestück besteht aus 4*4 Karos. 
Diese Stücke, sowie das ganze Bild, 
sind immer von links unten nach 
rechts oben aufgebaut. Teil 1 = AI 
= unten links, Teil 64 = H8 = oben 
rechts. Die neudefinierten Puzzle- 


R B C D E F G H 



□ 


BUCHST; 


ZUEITER 
UERSUCH 


UE ; 1 
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Knobeln 





fl N L E I T IJ N G •? ( J / N ) 


SPIEUflNL 


SEITE 1 


DIE ZUPflELLIG flNGEBÜTENEN 
PUZZLESTUECKE MUESSEN DURCH 
EINGABE DER K.ÜÜRDINflTEN fl-H UND 
1-S flUP IHREN PLATZ GELEGT 
UERDEN. 


EINIGE TEILE SEHEN GLEICH AUS. 
PASSEN ABER DENNOCH NUR AUP 
EINEN BESTIMMTEN PATZ. 


SOLLTE EIN TEIL 
PASSEN.. GIBT ES 
UERSUCH. 


NICHT GLEICH 
EINEN ZUEITEN 


TASTE 0 tUHE STOP) -> ENDE 


SEITE 3 


MIT a i:UIE RUN) BEGINNT 
DAS SPIEL 

MIT DB (UIE HILPE) KANN DAS BILD 
ANGESEHEN UERDEN. 

^DAS PLOTTEN DES GESAMTEN BILDES 
DAUERT .JEDOCH CA 1 l.-'3 MINUTEN) 

ANPAENGER SOLLTEN SICH DAS BILD 
TROTZDEM ERST EINMAL ANSEHEN 
»iUAEHREND DES SPIELS GIBT ES 
DAZU KEINE MOEGLICHKEIT MEHR). 

R Haas 
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Knobeln 


1 REM DAS PUZZLE-SPIEL 

2 REM EUER CHIP SPECIAL 

3 REM VON HANS HERMANN 

100 REM {5»-} GLOBALE VARIABLEN 

110 LET RI=0 

120 LET VE=0 

140 LET TE=64 

155 DIM 1(64) 

160 DIM I$(64,16) 

190 GOTO 4000 

200 REM { 5 *-} UP - RAHMEN TEIL 
210 PRINT AT 3,23;”«377R»”; 

220 PRINT AT 4,23;”<<5>> <<8>>"; 

230 PRINT AT 5,23;”<<5>> <<8>>"; 

250 PRINT AT 6,23 «WGGQ»” ; 

290 RETURN 

300 REM {5*-} UP-FELD ANWAEHLEN 
302 PRINT AT 9,23;"BUCHST.:” 

305 IF INKEY$<>«" THEN GOTO 305 
310 IF INKEY$=”” THEN GOTO 310 
315 LET A$=INKEY$ 

320 IF A$<«A" OR A$>«H« THEN GOTO 3 
65 

322 PRINT AT 9i23;"ZAHL; " 

325 IF INKEY$<>”” THEN GOTO 325 
330 IF INKEY$="" THEN GOTO 330 
335 LET B$=INKEY$ 

340 IF B$<*'1" OR B$>”8” THEN GOTO 3 
65 

345 PRINT AT 9,23{8»<SPC>}" 

350 LET VE=VE+1 

355 PRINT AT 20,23;”VE; ”;VE; 

359 RETURN 

365 PRINT AT 15,23EFALSCHE]";AT 1 
6,23;"[EINGABE]"; 

370 LET PA=70 
375 GOSUB 900 

380 PRINT AT 15,23;"{7*<SPC>}";AT 1 
6,23;"{8*<SPC>}"; 

390 GOTO 300 

400 REM {5*-} UP - POS RECHNEN 
420 LET A=((CODE A$)-38)«4+3 
440 LET B=VAL (B$)»4 
490 RETURN 

500 REM [5*-] UP RICHTIG 
510 IF (CODE A$-37)+(VAL B$-1)»8<>S 
T THEN RETURN 
520 LET I(ST)=1 

525 PRINT AT 9,23;"[RICHTIG]”;AT 12 
,23;"{7*<SPC>}";AT 13,23;"{8«<S 
PC>}";AT 14,23;"{8»<SPC>}"; 

530 LET RI=RI+1 

540 PRINT AT 21,23;"RI: ";RI; 

550 REM 

570 GOSUB 3800 

580 PRINT AT 10,23;"{7*<SPC>}" ; 

590 RETURN 

600 REM {5*-} UP FALSCH 
605 IF (CODE A$-37)+(VAL B$-1)*8=ST 
THEN RETURN 

610 PRINT AT 12,23;"[FALSCH]"; 

620 PRINT AT 13,23;"ZWEITER";AT 14, 
23;"VERSUCH"; 

630 GOSUB 300 
640 GOSUB 400 
650 GOSUB 500 

660 PRINT AT 12,23;"{7*<SPC>}";AT 1 
3,23;"{8»<SPC>}";AT 14,23;"{8*< 
SPC>}"; 

690 RETURN 

900 REM {5»-}UP—PAUSE 
910 FOR N=1 TO PA 
920 NEXT N 
930 RETURN 

1000 REM {5*-} UP TAUBE 

1003 PRINT AT ZE ,SP+12 ; "<<4»" 

1004 PRINT AT ZE+1,SP+10<<E>>[ ]< 
<W>>" 

1005 PRINT AT ZE+2,SP-»-10 ;"<<Q>>[ ] 

<<5>>" 

1006 PRINT AT ZE+3,SP+9;"«Q»[ ] 

<<W5>>" 

1008 PRINT AT ZE+4,SP+9;"[{5*<SPC>} 
]«5»" 

1010 PRINT AT ZE+5,SP+9;"«8»[ {4*< 


1012 

1014 

1016 

1018 

1020 

1022 

1024 

1026 

1028 

1030 


1040 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1300 
1320 
1330 
1340 
1360 
1370 
1380 
1400 
1410 
1420 
1440 
1450 
2000 
2010 
2220 
2240 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
2340 
2350 
2400 

2999 

3000 
3026 

3028 

3030 

3032 

3034 

3036 

3038 

3040 

3042 

3044 

3046 

3048 

3050 

3052 

3054 

3056 

3058 

3060 


SPC>}]<<5>>" 

PRINT AT ZE+6,SP+9;"<<8»[{4*< 
SPC>}]<<1>>" 

PRINT AT ZE+7,SP+9;"[{5»<SPC>} 
]" 

PRINT AT ZE+8,SP+5;"<<Q>>[ ]<< 
GQ>>[{4»<SPC>}]<<3>>" 

PRINT AT ZE+9 ,SP+5;"<<3R»[ {5» 
<SPC>}]<<3>> <<G4>>" 

PRINT AT ZE+10 ,SP;"«RW4>> << 

EQ>>[{5*<SPC>1]<<GQ>>[ ]<<5>>" 
PRINT AT ZE+11,SP;"<<27>>[{13* 
<SPC>}]<<5>>" 

PRINT AT ZE+12,SP+4;”<<27>>[ 1 
<<7>>[{7*<SPC>}]<<1>>" 

PRINT AT ZE+13,SP+8;"<<R>>[{4* 
<SPC>}]<<3R>> " 

PRINT AT ZE+14,SP+8;"<<8>>[{5* 
<SPC>}]" 

PRINT AT ZE+15,SP+9;"<<27>>[ 1 
<<31>> " 

RETURN 

REM {5*-}UP—GROBU 
FOR A=1 TO LEN T$ 

LET C=CODE T$(A) 

FOR Y=V TO V-7STEP -1 
LET Z=PEEK (7680+V-Y+8*C) 

LET P=128 

FOR X=U TO U+7 

LET B=Z>=P 

IF B THEN PLOT X,Y 

IF B THEN LET Z=Z-P 

LET P=P/2 

NEXT X 

NEXT Y 

LET U=U+8 

NEXT A 

RETURN 

REM {5*-}UP—LAUFSCHRIFT 
LET L=LEN T$ 

FOR K=1 TO L-1 

PRINT AT ZE,32-K;T$(1 TO K); 
NEXT K 

FOR I=32-L TO 1STEP -1 
PRINT AT ZE,I;T$; 

NEXT I 

FOR K=1 TO L 

PRINT AT ZE,I;T$(K TO L); 

NEXT K 
RETURN 

REM {5*-} HAUPTPROGRAMM 
CLS 

GOSUB 3500 
GOSUB 3000 
GOSUB 200 
GOSUB 3700 
LET A=47 
LET B=32 
GOSUB 3800 
GOSUB 300 
GOSUB 400 
GOSUB 500 
GOSUB 600 
GOTO 2270 
STOP 

REM {5*-} UP - INHALT BILD 
LET I$(1)=»{4*1}01{4»0}1{4*0}1 

II 

LET I$(2) = « 101{4*0}1{7*0}1" 

LET I$(3)="001001001{4*0}100" 
LET I$(4)=«{16*0}" 

LET I$(5)="{7*0}100110011" 

LET I$(6)=«0{15*1}" 

LET I$(7)="1100{12*1}« 

LET I$(8)="{16*0}« 

LET I$(9)="{4*1}{12*0}” 

LET I$(10)="101{13*0}" 

LET I$(11)=”001{10*0}111« 

LET I$(12)="{8*0}{8*1}" 

LET I$(13)="001100{10*1}" 

LET I$(14)=«{16*1}” 

LET I$(15)="1110{12*1}" 

LET I$( 16)=‘»010011 10 11 10 11 10»» 
LET I$( 17)="00110{10*1}0" 

LET I$( 18)="{ 10*1}{6*0}" 


3062 LET I$(19)="{8*1}0001 {4*0}»» 
3064 LET I$(20)=»»{12*1}0111*» 

3066 LET I$(21)=I$(14) 

3068 LET I$(22)=I$(14) 

3070 LET I$(23)="{12*1}0001»* 

3072 LET I$(24)=»*1110111011101110*' 
3074 LET I$(25)="{ 16*0}»» 

3076 LET I$(26)=I$(25) 

3078 LET I$(27)="0010001100110001" 
3080 LET I$(28)="0{13*1}00" 

3082 LET I$(29)="{12*1}0111»' 

3084 LET I$(30)=I$(14) 

3086 LET I$(31)=" 10001 100ni0{4*1}»' 
3088 LET I$(32)=»'111{13*0}" 

3090 LET I$(33)="{11*0}10010" 

3092 LET I$(34)=»»00{4*1}01000 1000 1« 
3094 LET I$(35)='» 1 100101 1 10001000" 
3096 LET I$(36)-»'{8*0} 1(4*0} 100»* 
3098 LET I$(37)="0011001100010001" 
3100 LET I$(38)=I$(14) 

3110 LET I$(39)=I$(14) 

3112 LET I$(40)=»*{ 12*0} 1000»* 

3114 LET I$(41)='»01 1 10101 10001000*' 
3116 LET I$(42)=*»0001 100 11 1010 1 1 1*» 
3118 LET I$(43)="1000100110{5*1}0" 
3120 LET I$(44)=»*1110101{4*0} 1000 1»' 
3122 LET I$(45)="0001000 10001000r' 
3124 LET I$(46)=I$(14) 

3126 LET I$(47)=I$(14) 

3128 LET I$(48)=" 100010001000 1000*» 
3130 LET I$(49)="10001{4*0}1000100" 
3132 LET I$(50)="0011000100010001" 
3134 LET I$(51)="1100100010001000" 
3136 LET I$(52)=»»000 1000 1001000 10'» 
3138 LET I$(53)="00010001{8*0}" 

3140 LET I$(54)=»*{12*1}0111»* 

3142 LET I$(55)="{6*1}0{4*1}01110»» 
3144 LET I$(56)='*1{15*0}" 

3146 LET I$(57)="001{4*0}1{8*0}" 
3148 LET I$(58)="0001000111010011" 
3150 LET I$(59)=" 1000 100010{4*1}00»' 
3152 LET I$(60)=*»01001{11*0}" 

3154 LET I$(61)=I$(25) 

3156 LET I$(62)="01110011(8*0}" 

3158 LET I$(63)="110010001(7*0}" 
3160 LET I$(64)=I$(25) 

3190 RETURN 

3200 REM (5*-} UP-AUSDRUCK BILD 

3220 FOR P=0 TO 7 

3240 FOR 0=1 TO 8 

3260 FOR M=0 TO 3 

3280 FOR N=1 TO 4 

3300 LET X=0*4+N-1 

3320 LET Y=P*4+M+4 

3340 IF I$(0 + P*8,N+M*4)=*» 1" THEN PL 

OT X,Y 

3360 IF I$(O + P*8,N+M*4)=»»0" THEN UN 

PLOT X,Y 
3380 NEXT N 
3400 NEXT M 
3420 NEXT 0 
3440 NEXT P 
3490 RETURN 

3499 STOP 

3500 REM (5*-} UP - RAHMEN-BILD 
3510 PRINT AT 0,0;»'[ DAS P U Z Z 

LE-SPIEL]" 

3520 FOR N=2 TO 37 
3525 PLOT 2,N 
3530 PLOT 37,N 
3540 NEXT N 
3550 FOR N=3 TO 36 
3560 PLOT N,2 
3570 PLOT N,37 
3580 NEXT N 
3590 FOR N=1 TO 8 

3600 PRINT AT 21,N*2;CHR$ (N+37);AT 

2,N*2;CHR$ (N+37); 

3610 PRINT AT 21-N*2,0;N;AT 21-N*2, 

19;n 

3620 FOR M=1 TO 8 
3630 PLOT N*4+1,M*4+1 
3640 NEXT M 
3650 NEXT N 
3690 RETURN 
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3700 REM {5«-} ÜP-TEIL AÜSSUCHEN 
3710 IF RI=64 THEN GOTO 4500 
3740 LET ST=INT (RND »TE)+1 
3760 IF I(ST)==1 THEN GOTO 3740 
3790 RETURN 

3800 REM {5*-} TEIL ZEICHNEN 
3810 FOR M=0 TO 3 
3820 FOR N=*1 TO 4 
3830 LET X=A+N 
3840 LET Y=B+M 

3850 IF I$(ST,N+M»4)="1" THEN PLOT 
X Y 

3860 IF I$(ST,N+M*4)="0" THEN UNPLO 
T X,Y 

3870 NEXT N 
3880 NEXT M 
3990 RETURN 

4000 REM {5»-}TITEL-SEITE 
4010 CLS 

4020 PRINT ”[{4*<SPC>}S I N C L A I 
R Z X 8 1 ]” 

4023 LET ZE=5 

4024 LET SP=16 

4025 GOSUB 1000 
4030 LET V=36 
4035 LET U=0 

4040 LET T$=”PUZZLE” 

4050 GOSUB 1100 

4058 PRINT AT 11,0;"[{11*<SPC>}]" 
4060 PRINT AT 12,0;"[ DAS{7*<SPC>}] 

II 

4062 PRINT AT 13,0;"[ PUZZLE- ]•' 
4064 PRINT AT 14,0;”[ SPIEL{5*<SPC> 
}]" 

4068 PRINT AT 15,0;”[{11*<SPC>}]" 
4070 LET PA=2 
4080 LET ZE=21 

4090 LET T$="ANLEITUNG? (J/N)” 

4095 LET T$=T$+'’ " 

4100 GOSUB 1300 

4110 IF INKEY$=”J” THEN GOTO 4200 
4120 IF INKEY$=”N" THEN GOTO 2000 
4130 GOTO 4100 


4200 REM {5*-} ANLEITUNG 

4210 CLS 

4220 PRINT »»[{4*<SPC>}S I N C L A I 
R Z X 8 1 ]” 

4225 PRINT , , ” {8*<SPC>}DAS PUZZLE-S 
PIEL« 

4230 PRINT {4»,}«[ SPIELANLEITUNG ] 
{9*<SPC>}SEITE 1” 

4240 PRINT ,,"DIE ZUFAELLIG ANGEBOT 
ENEN{7*<SPC>}PUZZLESTUECKE MUE 
SSEN DURCH{5*<SPC>}EINGABE DER 
KOORDINATEN A-H UND 1-8 AUF I 
HREN PLATZ GELEGT{6*<SPC>}WERD 
EN.« 

4250 PRINT ,,"EINIGE TEILE SEHEN GL 
EICH AUS, PASSEN ABER DENNOCH 
NUR AUF{5*<SPC>}EINEN BESTIMM 
TEN PATZ." 

4260 PRINT ,,"SOLLTE EIN TEIL NICHT 
GLEICH{4»<SPC>}PASSEN, GIBT E 
S EINEN ZWEITEN VERSUCH." 

4270 PRINT AT 21,0;"[BITTE TASTE DR 
UECKEN]" 

4278 IF INKEY$<>"" THEN GOTO 4278 

4280 IF INKEY$="" THEN GOTO 4280 

4290 PRINT AT 5,25;"SEITE 2" 

4300 PRINT ,,"MIT [R] (WIE RUN) BEG 
INNT{15*<SPC>}DAS SPIEL{17*<SP 
C>}" 

4310 PRINT "{32»<SPC>}MIT [H] (WIE 
HILFE) KANN DAS BILD{7*<SPC>}A 
NGESEHEN WERDEN.{9*<SPC>}" 

4320 PRINT "{32*<SPC>}(DAS PLOTTEN 
DES GESAMTEN BILDESDAUERT JEDO 
CH CA 6 MINUTEN)" 

4330 PRINT "{32«<SPC>}ANFAENGER SOL 
LTEN SICH DAS BILD TROTZDEM ER 
ST EINMAL ANSEHEN{4*<SPC>}(WAE 
HREND DES SPIELS GIBT ES{4*<SP 
OlDAZU KEINE MOEGLICHKEIT MEH 
R) . " 

4335 PRINT ,,"[BITTE TASTE ]R[ ODER 
]H[ DRUECKEN]" 


4340 IF INKEY$="R" THEN GOTO 2000 
4350 IF INKEY$="H" THEN GOTO 4400 
4360 GOTO 4340 

4400 REM {5*-} UP-KONTROLLDRUCK 

4405 CLS 

4410 GOSUB 3500 

4420 GOSUB 3000 

4430 GOSUB 3200 

4440 PRINT AT 10,23;"[ BITTE]";AT 
11,23;"[ TASTE]";AT 12,23;" 
[DRUECKEN]" 

4450 IF INKEY$="" THEN GOTO 4450 
4460 GOTO 2000 
4500 REM {5*-} SPIEL ENDE 
4504 PRINT AT 15,23;"[ENDLICH]";AT 
16,23;"[GESCHAFFT]"; 

4506 LET PA=200 
4508 GOSUB 900 
4510 CLS 

4512 LET GW=INT ((VE-1)/10)*10 
4515 PRINT "[{4»<SPC>}S I N C L A I 
R Z X 8 1 ]" 

4520 PRINT ,,"{7*<SPC>}D AS P U Z 
Z L E" 

4525 PRINT {4*,}VE;" VERSUCHE WAREN 
LEIDER" 

4527 PRINT "ETWAS ZU VIEL." 

4530 PRINT ,,"MIT ";GW;" VERSUCHEN 
HAETTEST" 

4540 PRINT "DU EIN FAHRRAD GEWONNEN 

II 

4550 PRINT ,,"VIELLEICHT KLAPPT ES 
DAS{8*<SPC>}NAECHSTE MAL." 

4560 PRINT {6*,}"WENN DU ES NOCH EI 
NMAL{10*<SPC>}PROBIEREN WILLST 
, MUSST DU EINE TASTE DRUECKEN 

4580 PRINT {4*,}"[{4*<SPC>}S INC 
LAIR ZX81 3" 

4590 IF INKEY$="" THEN GOTO 4590 
4595 RUN 

5000 SAVE "PUZZLLE]" 

5010 RUN 
9999 STOP 


ZX-Memory 


Rechner: ZX-81 
Programmname; Memory 
Programmlänge: 15000 Bytes 
Programmiersprache; BASIC 
Zubehör; 1ökByte-Erweiterung 

Memory ist ein Spiel, das das Ange¬ 
nehme mit dem Nützlichen verbindet. 
Einerseits vermittelt es Spaß am 
Spiel, andererseits trainiert es 
das Gedächtnis ohne großen Aufwand. 
Bei dieser ZX-81-Version können bis 
zu neun Personen teilnehmen. Es ist 
für die Mitspieler jederzeit 
möglich, aus dem Spiel auszustei¬ 
gen, ohne daß die übrigen Mitspie¬ 
ler aufhören müssen. Auch kann mit 
der Taste ”S” der Spielstand abge¬ 
speichert und das Spiel später 
wieder aufgenommen wei^den. Sollte 
Ihr Gedächtnis bei jederman ge¬ 
fürchtet sein und es gelingt Ihnen 


daher nicht, einen Gegner zu fin¬ 
den, so wird sich zumindest der 
Computer als Spielpartner zur Ver¬ 
fügung stellen. Seine Spielstärke 
kann natürlich nach Belieben fest¬ 
gelegt werden. 

Kartenzauber 

Dieses Programm birgt zudem eine 
kleine Abweichung von der üblichen 
Version. Sie können sich schon 
einmal umgedrehte Karten markiere«, 
oder sich auf Wunsch die Spiel¬ 
steine kurz zeigen lassen. Die 
Karten werden gewählt, indem Sie 
zuerst die Zeilen- und dann die 
Spaltennummer mit den entsprechen¬ 
den Zahlen eingeben. Die oberste 
Karte hat die Bezeichnung ”1/1". 
Die Karte eine Zeile weiter unten 
die Bezeichnung "2/1". Beachten Sie 
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dazu den Bildschirm rechts oben. 
Unter dem Wort ”Karte" sehen Sie, 
welche Karte gerade zu ziehen ist. 
Ganz oben steht wie oft Sie wieder¬ 
holen dürfen, und wie oft Sie schon 
bei Paarheit wiederholt haben. Er¬ 
scheint unter dem Wort “Karte” das 
Wort “Key", so wartet der Computer, 
bis Sie eine Taste gedrückt haben. 

Nur nicht drängeln 

Solange können Sie sich die Karten 
ansehen. Dieser Warteprozeß dauert 
an, bis Sie eine Taste drücken 
Wenn der Rechner allerdings merkt, 
daß Sie sich die Karten zu lange 
ansehen, führt er das Spiel automa¬ 
tisch weiter. Nach jedem Zug er¬ 


folgt für jeden einzelnen Spieler 
eine Spielstandsanzeige. Haben Sie 
eine falsche Angabe gemacht, können 
Sie diese, solange Sie nicht die 
letzte Koordinate eingegeben haben, 
mit der RUBOUT-Taste korrigieren. 
Stellt der Computer eine falsche 
Eigabe fest, zeigt er dies mit drei 
Fragezeichen im Eingabefeld an und 
erwartet von Ihnen eine neuerliche 
Eingabe. Sollte vorzeitig ein Spie¬ 
ler das Handtuch werfen, drücken 
Sie nach der Spielerauflistung die 
Nummer des entsprechenden Spielers. 
Der Computer wird das Spiel ohne 
diesen Spieler weiterführen. Und 
nun viel Spaß beim Rätseln: “Wo war 
doch gleich die Karte gelegen?“ 

Roland Schuff 
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(B) R / (N)EIN 


ICH BIN DREiEI; BITTE UREHLE 
5PIELCHPRPKTER: 

FLRSCHE = "O 
SCHUfiCH = “1 
NORMAL = ‘’2 
GUT = '*3 
PERFEKT = ■■4. 


UMGEDREHTE KARTEN WERDEN: 
MARKIERT = "JS" 



NICHT MARKIERT 







ART 


nimtiDiiEiix 


p 1 








r ” 

m 

B 

B 

B 

B 

B 

B E 

r ” 

B 

m 


B 

m 

B 

_ 



5 RUN 370 

135 

10 FOR 1=0 TO 51 

14(1 

20 PLOT 51-1,10 

145 

30 PLOT 1,43 

150 

40 NEXT I 

160 

60 FOR 1=11 TO 42 

165 

70 PLOT 0,1 

175 

80 PLOT 51,53-1 

180 

90 NEXT I 

185 

95 RETURN 

190 

100 FOR U=7 TO 48STEP 6 

105 FOR E=11 TO 42 

110 PLOT Ü,E 

195 

115 NEXT E 

200 

120 NEXT U 

205 

125 FOR U=18 TO 34STEP 8 

210 

130 FOR E=1 TO 50 

215 


PLOT E,U 


225 

NEXT E 


240 

NEXT U 


245 

RETURN 


260 

FOR A=1 TO 4 

FOR B=1 TO 8 

IF M$(A,B)=F$ THEN 

GOTO 210 

265 

FOR C=1 TO 4 


270 

FOR D=1 TO 8 


275 

IF A=C AND B=D THEN 

GOTO 210 

290 

IF M$(A,B)<>F$ AND 

M$(C,D)<>F$ 

300 

AND M$(A,B)=M$(C,D) 

THEN GOTO 5 

310 

120 


315 

NEXT D 


320 

NEXT C 


330 

NEXT B 


335 

NEXT A 


340 


GOTO 5490 
FOR C=1 TO 4 
FOR D=1 TO 8 

IF M$(C,D)<>F$ AND M$(A,B)=M$(C 

,D) AND NOT (C=A AND D=B) THEN 

GOTO 5560 

NEXT D 

NEXT C 

GOTO 5530 

IF CODE INKEY$ THEN GOSUB 6555 
RETURN 

LET A=*INT (RND *4) + 1 
LET B=INT (RND •8)+1 
RETURN 

LET C*INT (RND «4+1) 

LET D»INT (RND «8+1) 

RETURN 
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3M5 FOR E=«1 TO 15 

350 PRINT AT E,1;"»» SPIELRUNDE ZU 
ENDE 

355 NEXT E 
360 RETURN 
370 SLOW 
375 GOSUB 6290 
380 GOTO 6600 
385 CLS 

390 PRINT AT 7i13;"DATUM”;AT 10,10; 
"<«;l$( TO 8);">”;at 15,12;«-> 
N/L" 

395 LET J$="” 

400 IF NOT CODE INKEY$ THEN GOTO 40 

0 

405 LET E$=INKEY$ 

410 IF CODE E$=118 THEN GOTO 490 
420 IF CODE E$<>119 AND LEN J$<8 TH 
EN LET J$=»J$+E$ 

430 LET J$=J$( TO LEN J$-(CODE E$=1 
19 AND LEN J$>0)) 

440 PRINT AT 10,11;J$;(CHR$ 0 AND L 
EN J$<8) 

450 GOTO 400 
490 CLS 

495 GOSUB 6280 
500 GOSUB 6355 

505 PRINT AT 6,0;«WIEVIELE SPIELER? 

";TAB 22;«( 1-9)'* 

515 POKE P,2 
520 LET E$=INKEY$ 

525 IF CODE E$=118 THEN GOTO 6595 
530 IF CODE E$>37 OR CODE E$<29 THE 
N GOTO 520 

535 PRINT AT 6,0;L$( TO 8);AT 6,7;C 
HR$ (CODE e$+m);tab 16;»,«;L$ 
540 DIM D$(VAL E$+1,20) 

545 DIM G(VAL E$+1) 

550 PRINT AT 10,0;"NAMENSEINGABE";( 
"N" AND VAL E$>1);CHR$ 0;("DER" 
AND VAL E$>1);("DES" AND E$="1 
");« SPIELER";("S" AND E$="1"); 

II I n 

560 FOR 1=1 TO VAL E$ 

570 PRINT AT 12,0;!;". SPIELER:" 

580 INPUT D$(VAL E$-I+1) 

590 IF D$(VAL E$-I+1,1)=CHR$ 0 THEN 
GOTO 6595 

600 PRINT AT I-VAL E$-12,12;D$(VAL 
E$-I+ 1) 

605 NEXT I 

610 LET X=12 

615 GOSUB Z 

620 DIM P(VAL E$+1) 

625 PRINT AT 16,0;"[COMPUTER]: ""DA 
RF ICH MITSPIELEN?""";AT 18,10; 
«(J)A / (N)EIN" 

630 POKE P,2 
635 LET C$=INKEY$ 

640 IF C$="J" THEN GOTO 655 
645 IF C$="N" THEN GOTO 670 
650 GOTO 630 

655 LET D$(VAL E$+1)="«»» ZX81 »»•" 
660 PRINT AT 16,0;L$,,L$;TAB 4;"DAN 
KE ";("DIR;" AND VAL E$=1);("EU 
CH;" AND E$<>STR$ 1);TAB 16;D$( 
VAL E$+1,4 TO 8);" = DABEI." 

665 GOTO 680 

670 PRINT AT 16,0;L$,,L$;TAB 4;«OK, 
";("IHR" AND VAL E$>1);("DU" A 
ND E$="1");" SPIEL";("T" AND VA 
L E$>1);(«ST" AND E$="1");" ALL 
EINE." 

690 IF J AND C$<>"J" AND Q>VAL E$ T 
HEN LET W=0 
700 LET X=20 
710 GOSUB Z 

750 PRINT AT 0,10;«[KARTENFORMAT]"; 
AT 5,2;"(S)YMPOLE";TAB 21;"(Z)A 
HLEN";AT 8,7;"BITTE WAEHL";("E" 
AND E$="1");("T" AND VAL E$>1) 
;" FORMAT." 

770 LET K$=INKEY$ 

795 IF K$<>"S" AND K$<>"Z" THEN GOT 
0 770 


805 PRINT AT 8,0;L$;AT 6,3+(19 AND 
K$=«Z");CHR$ 3;AT 10,0;VAL E$+( 
C$="j");" SPIELER:" 

820 FOR 1=1 TO VAL E$+1 
830 PRINT AT 9+I,12;D$(I) 

840 NEXT I 
870 LET X=10 
885 GOSUB Z 

900 PRINT AT 12,0;"UMGEDREHTE KARTE 
N WERDEN:",,,"MARKIERT = «"M""" 
;AT 16,11 ;"""N"" = NICHT MARKTE 
RT" 

920 LET G$=INKEY$ 

940 IF G$<>"N" AND G$<>"M" THEN GOT 
0 920 

950 PRINT AT l4+(2 AND G$="N"),12;C 
HR$ (CODE G$+M) 

970 LET X=12 
980 GOSUB Z 

1005 PRINT AT 8,0;"VORHER WIRD GESP 
ICKT:";AT 10,15;"(J)A / (N)EIN 

II 

1010 LET W$=INKEY$ 

1020 IF W$<>"N" AND W$<>"J" THEN GO 
TO 1010 

1040 PRINT AT 10,l6+7«(W$="N");CHR$ 
(CODE W$+M) 

1070 IF C$="N" THEN GOTO 1125 
1080 PRINT AT 15,0;"ICH BIN DABEI; 
BITTE WAEHL";("T" AND VAL E$>1 
);("E" AND E$="1"),"SPIELCHARA 
KTER;«;AT 17,17;"FLASCHE = ""0 
""";TAB 17;"SCHWACH = «ninw";T 
AB 17;"NORMAL = "«2""";TAB 17 
;«GUT";TAB 25;"= «"3 «ihi;xaB 17 
;"PERFEKT = w«4""" 

1095 LET Y$=INKEY$ 

1100 IF CODE Y$>32 OR CODE Y$<28 TH 
EN GOTO 1090 

1120 PRINT AT 17+VAL Y$,28;CHR$ (CO 
DE Y$+M) 

1125 LET X=14 

1130 GOSUB Z 

1140 GOSUB 8500 

1150 GOSUB 7500 

1155 IF J THEN RETURN 

1165 POKE P,0 

1175 RAND T 

1180 FAST 

1185 CLS 

1190 GOTO 1200+(100 AND K$="S") 

1215 FOR 1=1 TO 16 

1220 FOR E=1 TO 2 

1230 GOSUB 310 

1240 IF T$(A,B)<>F$ THEN GOTO 1230 
1255 LET T$(A,B,3-LEN STR$ I TO )=S 

1260 NEXT^E 
1270 NEXT I 
1290 GOTO 1500 
1305 FOR 1=1 TO 16 

1310 FOR E=1 TO 2 

1320 GOSUB 310 

1330 IF T$(A,B)<>F$ THEN GOTO 1320 
1335 LET T$(A,B,2)="[#+»=?]/-M$+X»Z 
#BW"(I) 

1380 NEXT E 
1385 NEXT I 
1500 SLOW 
1505 GOSUB 1520 
1510 GOTO 1570 
1520 FOR 1=1 TO 4 
1530 FOR E=1 TO 8 

1540 PRINT AT I»4-2,E»3-2;CHR$ 0+CH 
R$ M 

1550 NEXT E 
1560 NEXT I 
1565 RETURN 
1600 GOSUB 9 

1620 IF H$="K" THEN GOSUB 100 
1650 IF X$="J" THEN GOSUB 8955 
1655 IF W$=«J« THEN GOSUB 6900 
1680 IF J THEN RETURN 
1685 GOSUB 6505 
1690 LET W=0 


1695 LET Q=1 
1700 LET Y=1 

1740 IF W THEN GOTO 1760 
1750 FOR N=0 TO VAL 1$ 

1760 GOSUB 6800 
1770 DIM N(2,2) 

1790 IF NOT W OR J1 THEN GOSUB 9E3 
1795 LET G(Q)=G(Q)+1 
1800 FOR L=1 TO 2 

1820 PRINT AT 3i26;"(S)AVE";AT 7,28 
;L$( TO 3 );at 5,27;"[karte]";a 
T 6,29;CHR$ (CODE STR$ L+M) 
1850 LET 0$=INKEY$ 

1860 IF LEN O$=0 THEN GOTO 1850 
1870 IF CODE 0$>32 OR CODE 0$<29 TH 
EN GOTO 2500 

1880 PRINT AT 7,28;CHR$ (CODE 0$+12 
8);CHR$ 152; 

1885 LET N(L,1)=VAL 0$ 

1900 GOSUB S 
1920 LET 0$=INKEY$ 

1925 IF LEN O$=0 THEN GOTO 1920 
1930 IF CODE 0$>36 OR CODE 0$<29 TH 
EN GOTO 2500 
1935 LET N(L,2)=VAL 0$ 

I960 PRINT AT 7,30;CHR$ (CODE 0$+M) 
1985 IF N(1,1)=N(2,1) AND N(1,2)=N( 

2.2) THEN GOTO 2500 

1990 IF T$(N(L,1),N(L,2))=F$ THEN G 
OTO 2500 

1995 LET K=K+(M$(N(L,1),N(L,2))=F$) 
2100 PRINT AT N(L,1)»4-2,N(L,2)*3-2 
;T$(N(L,1),N(L,2)) 

2490 GOTO 2550 

2510 IF INKEY$="S" THEN SAVE "MEMOR 
[Y]" 

2520 PRINT AT 7,28;F$;AT 7,28;("[?? 
?]" AND NOT (CODE 0$=119 OR 0$ 
=STR$ 0 OR 0$="S")) 

2525 GOSUB S 

2530 PRINT AT 7,28;L$( TO 3) 

2540 GOTO 1850 
3990 GOSUB S 
4000 NEXT L 

4010 PRINT AT 6,29;F$;AT 3,26;L$( T 

0 6 ) 

4030 IF T$(N(1,1),N(1,2))=T$(N(2,1) 
,N(2,2)) THEN GOTO 6E3 
4060 LET W=0 
4070 LET N=0 
4100 GOSUB R 

4130 PRINT AT N( 1,1)»4-2,N(1,2)«3-2 
;(CHR$ 0+CHR$ M AND G$="N");AT 
N(2{4»<SPC>},1)«4-2,N(2,2)»3- 
2;(CHR$ 0+CHR$ M AND G$="N");A 
T N(1,1«Q>>{4«<SPC>})*4-2,N(1 
,2)»3-2;(CHR$ 0+CHR$ 8 AND G$= 
"M");AT N(2,1{4«<SPC>})»4-2,N( 

2.2) »3-2;(CHR$ 0+CHR$ 8 AND G$ 

4135 GOSUB 9E3 
4140 FOR U=1 TO 2 

4160 LET M$(N(U,1),N(U,2))=T$(N(U,1 
),N(U,2)) 

4170 NEXT U 
4780 GOSUB 7500 

4785 IF W AND Q$="J" THEN NEXT N 
4795 GOSUB 9690 

4825 IF Q<=VAL E$ THEN GOTO 1740 
4850 IF C$="J" AND N<=VAL 1$ THEN G 
OTO 4900 
4860 GOTO 1690 
4980 IF W THEN GOTO 5E3 
4990 FOR N=0 TO VAL 1$ 

5000 GOSUB 6800 

5010 LET Q=VAL E$+1 

5020 IF NOT W OR J1 THEN GOSUB 9E3 

5035 IF U$=«F" THEN FAST 

5040 LET G(Q)=G(Q)+1 

5045 LET W=0 

5050 IF VAL Y$=0 AND 0015 THEN GOT 
0 5490 

5065 IF RND >((.7-(.3»(Y$="1"))) AN 
D 0<15) AND VAL Y$<3 THEN GOTO 
5490 
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Gedächtnistraining 


5100 GOTO 155 
5125 LET W=1 

5150 LET K=K+(M$(A,B)=F$)+(M$(C,D)= 
F$) 

5155 SLOW 

5160 GOSUB R 

5170 GOSUB 9680 

5230 GOSUB 6850 

5260 GOSUB 7E3 

5280 GOSUB 6780 

5300 GOSUB 6200 

5320 GOSUB 9E3 

5340 LET 0=0+1 

5350 GOSUB 7500 

5370 GOSUB 5950 

5380 IF Q$="J" THEN NEXT N 

5450 GOTO 1690 

5490 GOSUB 310 

5505 IF T$(A,B)»F$ OR (M$(A,B)<>F$ 
AND K<31) THEN GOTO 5490 
5510 LET K=K+(M$(A,B)=F$) 

5515 PRINT AT A»4-2,B«3-2;(T$(A,B) 
AND U$<>”F") 

5520 LET M$(A,B)=T$(A,B) 

5525 IF VAL Y$>1 AND RND <(VAL Y$/5 
) OR Y$=STR$ 4 THEN GOTO 240 
5530 GOSUB 330 

5540 IF T$(C,D)=F$ THEN GOTO 5530 
5545 IF VAL Y$=1 AND RND >.5 THEN G 
OTO 5560 

5550 IF M$(C,D)<>F$ AND K<>32 THEN 
GOTO 5530 

5555 IF B=D AND A=C THEN GOTO 5530 
5560 LET K=K+(M$(C,D)=F$) 

5565 LET M$(C,D)=T$(C,D) 

5570 SLOW 

5575 IF T$(A,B)<>T$(C,D) THEN GOTO 
5700 

5577 GOSUB R 
5580 LET 0=0+1 
5585 GOSUB 9680 
5590 GOSUB 7E3 
5595 GOSUB 6850 
5600 LET W=1 
5605 GOSUB 6210 
5610 SLOW 
5615 GOSUB 9E3 
5620 GOSUB 6780 
5640 GOSUB 7500 
5645 GOSUB 5950 
5650 GOTO 5930 
5700 GOSUB R 
5730 GOSUB 9680 
5740 GOSUB 7E3 
5750 GOSUB 9E3 
5850 GOSUB 7500 
5860 GOSUB 5950 

5930 IF W AND Q$="J« THEN NEXT N 
5935 GOSUB 9700 
5940 GOTO 1690 

5950 PRINT AT A»4-2,B»3“2;(F$ AND W 
);at c»4-2,d»3-2;(f$ and w);at 
A»4-2,B»3-2;(CHR$ 0+CHR$ 8 AN 
D G$="M" AND NOT W);AT C»4-2,D 
•3-2;(CHR$ 0{4»<SPC>}+CHR$ 8 A 
ND G$=*'M« AND NOT W);AT A»4-2, 
b»3-2;(chr$ 0+chr$ m and G$="N 
” AND NOT W);AT C«4-2<<W>>{4»< 
SPC>},D»3-2;(CHR$ 0+CHR$ M AND 
G$=”N” AND NOT W) 

5960 RETURN 
6015 GOSUB 6780 
6040 LET W=1 
6070 GOSUB 6200 
6090 LET 0=0+1 
6095 GOSUB 9010 

6100 PRINT AT N(1,1)»4-2,NC1,2)«3“2 
;F$;AT N(2,1)»4-2,N(2,2)«3-2;F 

$ 

6150 LET T$(N(1,1),N(1,2))=F$ 

6155 LET T$(N(2,1),N(2,2))=F$ 

6170 GOTO 4140 
6210 LET P(Q)=P(Q)+1 
6220 LET S(Q)=S(Q)+1 
6250 RETURN 


6265 PRINT AT 20,18;L$( TO 14);TAB 
18;L$( TO 14);TAB 18;L$( TO 14 
) 

6275 RETURN 

6280 LET T=INT (RND »6E4)+1 
6285 RETURN 
6290 DIM L$(32) 

6295 LET F$=CHR$ 0+CHR$ 0 

6300 LET J=0 

6310 LET J1=0 

6315 LET N=0 

6320 DIM T$(4,8,2) 

6325 RAND 
6330 LET Z=6725 
6335 LET P=16418 
6340 LET S=290 
6345 LET Q=1 
6350 RETURN 
6360 LET K=0 
6365 LET 0=0 
6370 LET M=128 
6375 LET R=6575 
6385 DIM M$(4,8,2) 

6500 RETURN 

6510 DIM S(VAL E$+1) 

6550 RETURN 

6555 PRINT AT 23t11[LOSLASSEN]" 
6560 IF CODE INKEY$ THEN GOTO 6555 
6565 PRINT AT 23i11;L$( TO 10) 

6570 RETURN 

6575 GOSUB S 

6576 PRINT AT 7»28;("[KEY]" AND Y) 

6578 FOR U=1 TO 40 

6579 IF CODE INKEY$ THEN GOTO 6582 

6580 NEXT U 

6582 PRINT AT 7,28;(F$+F$ AND Y) 
6585 RETURN 
6595 CLS 

6600 PRINT AT 7»10;”[M E M 0 R Y]«; 
AT 12,1;"[START] = NEWLINE",,T 
AB 1;"SAVE = ""S"" THEN LOAD 
""MEMORY""",,TAB 1;"M0TIV = "" 

jujiin n 

6605 POKE P,0 

6610 IF INKEY$="M« THEN GOSUB 6635 
6615 IF INKEY$="S" THEN GOTO 6695 
6620 IF CODE INKEY$=118 THEN GOTO 3 
85 

6630 GOTO 6605 
6635 POKE P,0 
6640 LET K=1 

6645 PRINT AT 22,8;">(CURSORTASTEN) 
<";TAB 0;"ENDE=(E) / PL0T=(1) 

/ UNPLOT=(0)" 

6650 LET A=0 
6655 LET B=0 

6660 IF INKEY$="0" THEN LET K=1 
6665 IF INKEY$="1" THEN LET K=0 
6670 LET A=A+(INKEY$="7" AND A<43)- 
(INKEY$="6« AND A>0) 

6675 LET B=B+(INKEY$="8" AND B<63)- 
(INKEY$="5" AND B>0) 

6680 IF INKEY$="E" THEN GOTO 6715 

6682 UNPLOT B,A 

6683 PLOT B,A 

6685 IF K THEN UNPLOT B,A 
6690 GOTO 6660 
6695 CLEAR 

6700 SAVE "MEMOR[Y]" 

6705 GOSUB 6290 

6710 GOTO 6605 

6715 PRINT AT 22,0;L$;L$ 

6720 RETURN 
6725 POKE P,2 
6735 FOR U=1 TO X 
6740 SCROLL 
6750 NEXT U 
6760 RETURN 

6780 PRINT AT 23,26;"[»PAAR«]" 

6785 RETURN 

6800 PRINT AT 0,28;1$;;N 

6820 RETURN 

6850 LET T$(A,B)=F$ 

6855 LET T$(C,D)=F$ 

6860 LET M$(A,B)=F$ 


6865 LET M$(C,D)=F$ 

6870 RETURN 

6900 FOR 1=1 TO 4 

6920 FOR E=1 TO 8 

6930 PRINT AT I»4-2,E*3-2;T$(I,E) 

6935 NEXT E 

6940 NEXT I 

6945 GOSUB 7500 

6950 GOSUB 1520 

6970 RETURN 

7000 PRINT AT 7,28;CHR$ (CODE STR$ 
C+M);CHR$ 152;CHR$ (CODE STR$ 
D+M);AT 8,28;"UND";AT 9,28;CHR 
$ (CODE STR$ A+M);CHR$ 152;CHR 
$ (CODE STR$ B+M) 

7010 RETURN 
7500 POKE P,0 
7505 SLOW 
7515 GOSUB S 

7520 PRINT AT 23,11;"«3>>[ TASTE ] 
<<R>>" 

7530 FOR E=1 TO 3 

7535 IF CODE INKEY$ THEN GOTO 8E3 

7540 NEXT E 

7545 PRINT AT 23i11;L$( TO 9) 

7550 FOR E=1 TO 3 

7555 IF CODE INKEY$ THEN GOTO 8E3 

7560 NEXT E 

7570 GOTO 7520 

8030 PRINT AT 23,8;L$( TO 24);AT 7, 
28;L$( TO 3);tab 28;L$( TO 3); 
TAB 28;L$( TO 3) 

8050 IF 0=16 THEN GOSUB 9120 
8200 RETURN 
8500 LET I$=STR$ 0 
8510 PRINT AT 10,0;"BEI PAARBILDUNG 
KANN WIEDERHOLT WERDEN: (J}A 
/ (N)EIN" 

8515 LET Q$=INKEY$ 

8520 IF Q$<>"J" AND Q$<>"N" THEN GO 
TO 8515 

8525 PRINT AT 11,9+(7 AND Q$="N");C 
HR$ (CODE Q$+M) 

8530 SCROLL 
8535 SCROLL 
8540 SCROLL 

8550 IF Q$="N" THEN GOTO 8580 
8555 PRINT AT 10,0;"WIE OFT MAX.? ( 
ZAHL 1-9) >> "; 

8560 LET I$=INKEY$ 

8565 IF CODE I$<29 OR CODE I$>37 TH 
EN GOTO 8560 

8575 PRINT CHR$ (CODE I$+M) 

8580 LET X=11 
8585 GOSUB Z 

8620 PRINT AT 10,0;"FELDAUFBAU:";AT 
14,1;"KARIERT =""K""",,,TAB 1 
= NICHT KARIERT" 

8630 LET H$=INKEY$ 

8640 IF H$<>"K" AND H$<>"N" THEN GO 
TO 8630 

8650 PRINT AT l4+(2 AND CODE H$>50) 
,11;CHR$ (CODE H$+M) 

8660 LET X=10 
8665 GOSUB Z 

8680 PRINT AT 10,0;"KOORDINATENRAND 
:";AT 14,9;"(N)EIN",,,TAB 9;"( 
J)A" 

8685 LET X$=INKEY$ 

8690 IF X$<>"N" AND X$<>"J" THEN GO 
TO 8685 

8695 PRINT AT l4+(2 AND CODE X$<50) 
,10;CHR$ (CODE X$+M) 

8700 LET X=17 
8705 GOSUB Z 

8720 IF C$="N« THEN RETURN 
8725 PRINT AT 10,0;"WELCHEN MODUS B 
EI ZX-81 AKTIONz";AT 14,20;"(S 
)LOW",,,;TAB 20;"(F)AST" 

8730 LET U$=INKEY$ 

8735 IF U$<>"F" AND U$<>"S" THEN GO 
TO 8730 

8740 PRINT AT l4+(2 AND U$="F"),21; 

CHR$ (CODE U$+M) 

8900 RETURN 
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Reftungsaktipn 


896(i FOH U=1 TO 8 

8965 PRINT AT Ü»2,0;(CHR$ (CODE STR 
$ (ü/2) + M+1) AND U/20INT (U/2 
));at ü»2,25;(chr$ (Code str$ 
(U/2) + M+1) AND U/20INT (U/2)) 

;at 0,ü»3-i;chr$ (code str$ u+ 

M);AT 16,ü«3 -15CHR$ (CODE STR 
$ Ü+M) 

8970 NEXT U 
8995 RETURN 
9015 GOSÜB 6260 

9020 PRINT AT 18 ,0;D$(Q);TAB 22;"<P 
aare>";AT 20,0;Q;”.«;F$;"PLAYE 
R";F$;”(”;VAL E$+(C$="J«);")”+ 
f$;at 23,0;j$;at 20,18;"IM spi 
EL;'*;TAB 32-LEN STR$ (S(Q));S( 
Q);TAB 18;"INSGES.:”;TAB 32-LE 

N str$ (p(q));p(q);tab 18;"akt 

.:";TAB 32-LEN STR$ (G(Q));G(Q 

9025 LET J1=0 
9050 RETURN 
9120 GOSUB 345 
9130 LET 0=0 
9135 LET J=1 
9140 GOSUB 7500 
9145 CLS 

9150 PRINT TAB 10[SPIELERDATEN]” , 
,,"AKTIONEN / PAARE > SPIEL/IN 
SGES." 

9155 FOR E=1 TO VAL E$+(C$="J") 

9160 PRINT AT E+3»0;D$(E);AT E+3,23 
-LEN STR$ G(E);G(E);TAB 27-LEN 
STR$ S(E);S(E);TAB 32-LEN STR 
$ P(E);P(E) 

9165 NEXT E 
9175 LET N=N+1 
9180 LET Y=0 

9185 PRINT AT 16,0;"KARTEN WERDEN G 
EMISCHT:";TAB 25;"(N)EIN";AT 1 
8,25;"(J)A" 


9190 LET P$=INKEY$ 

9195 IF P$<>"J" AND P$<>"N" THEN GO 
TO 9190 

9200 PRINT AT l6+(2 AND P$="J"),26; 
CHR$ (CODE P$+M);AT 21,0;"NEUE 
PARAMETER;";TAB 25;"(J)A";AT 
23,25;"(N)EIN" 

9205 GOSUB S 
9210 LET Z$=INKEY$ 

9215 IF Z$<>"J" AND Z$<>"N" THEN GO 
TO 9210 

9220 PRINT AT 21+(2 AND Z$="N"),26; 

CHR$ (CODE Z$+M) 

9230 GOSUB R 
9235 CLS 

9240 PRINT AT 12,0;"ES SCHEIDEN SPI 
ELER AUS: (J)A",,,TAB 25;"(N)E 
IN" 

9245 LET A$=INKEY$ 

9250 IF A$<>"J" AND A$<>"N" THEN GO 
TO 9245 

9260 PRINT AT 12+(2 AND A$="N"),26; 

CHR$ (CODE A$+M) 

9265 GOSUB R 

9270 IF A$="N" THEN GOTO 9500 
9280 CLS 

9290 PRINT AT 0,0;L$;AT 0,0;"NR.- D 
ELETE","0 = RETURN" 

9295 FOR U=1 TO VAL E$ 

9300 PRINT AT U»2+2,0;CHR$ (CODE ST 
R$ U+M);TAB 10;D$(U) 

9305 NEXT U 

9315 PRINT AT 23,9;"[PRESS THE KEY] 

n 

9320 PRINT AT 0,13;F$;AT 0,13;"->” 
9325 IF NOT CODE INKEY$ THEN GOTO 9 
320 

9330 LET R$=INKEY$ 

9345 PRINT AT 23,0;L$ 

9360 IF (CODE R$-(VAL E$<>1)<C0DE E 
$) AND CODE R$>27 THEN GOTO 93 


80 

9375 GOTO 9315 

9380 IF NOT VAL R$ THEN GOTO 9500 
9390 IF VAL R$=Q THEN LET W=0 
9395 LET Q=Q-(VAL R$<Q AND Q>0) 

9410 PRINT AT VAL R$»2+2,0;L$;AT 0, 
0;L$;AT 0,0;"ICH SORTIERE..."; 
AT 23,0;L$ 

9430 FOR U=VAL R$ TO VAL E$ 

9440 LET D$(U)=D$(U+1) 

9450 LET P(U)=P(U+1) 

9455 LET G(U)=G(U+1) 

9475 NEXT U 

9485 LET E$=STR$ (VAL E$-l) 

9495 GOTO 9280 
9505 POKE P,2 
9510 CLS 

9515 IF Z$="J" THEN GOSUB 625 

9520 IF P$="J" THEN GOSUB 6280 

9530 POKE P,0 

9535 GOSUB 1165 

9550 GOSUB 6355 

9570 GOSUB 6505 

9600 LET Jl=1 

9620 LET Y=1 

9625 IF Q<=VAL E$ AND N>VAL 1$ THEN 
GOSUB 9690 
9650 GOTO 4820 

9680 PRINT AT A»4-2,B»3-2;T$(A,B);A 
T 0,31;CHR$ (0««0««0*«0-1);AT 
C»4-2,D»3-2;T$(C,D) 

9685 RETURN 
9690 LET N=0 
9695 LET Q=Q+1 
9700 LET W=0 
9710 RETURN 


Vorsicht SluRgefahr 


Programmname: Clou 
Programmlänge: 1000 Bytes 
Programmiersprache: Assembler 
Zubehör: 1ökByte-Erweiterung 

Stellen Sie sich einmal vor: Sie 
befinden sich in einem alten bau¬ 
fälligen Haus im obersten Stock¬ 
werk. Was würden Sie wohl empfin¬ 
den? Sicherlich etwas mehr als nur 
ein bißchen Unbehagen. G-enau so 
geht es Ihrer Spielfigur. Denn 
diese hat das Pech, in oben be¬ 
schriebene Situation geraten zu 
sein. Sie wartet jetzt verzweifelt 
auf Ihre Hilfe. Dummerweise ist das 
Treppenhaus eingestürzt, so daß die 
einzige Möglichkeit sich zu retten 
darin besteht, ein Loch im Boden zu 
suchen, um sich durch dieses hinab¬ 
zulassen. Doch sind die Löcher nur 
schwer zu finden. Außerdem ist der 
Boden an manchen Stellen sehr dünn 


und es besteht die Gefahr durchzu¬ 
brechen. In Sicherheit befindet 
sich Ihre Spielfigur erst, wenn sie 
das Parterre erreicht hat. Im er¬ 
sten Stockwerk müssen Sie noch 
einmal stark aufpassen, denn hier 
ist der Boden besonders baufällig. 
In jedem Stockwerk haben Sie einen 
Bonus von 610 Punkten. Jeder Fehl¬ 
versuch, ein Loch zu finden, kostet 
Sie 40 Punkte. Ist ein Loch gefun¬ 
den, rutschen Sie in das darunter 
liegende Stockwerk - die über ge¬ 
bliebenen Punkte werden Ihnen auf 
einem Totalpunktezähler gutge¬ 
schrieben. Sollten Sie den Boden 
durchbrechen, sind Hopfen und Malz 
nicht unbedingt verloren. Mit etwas 
Glück läßt Ihnen einen gute Fee 
noch eine Chance, Es kann aber auch 
sein, daß die Fee gerade mit ande¬ 
ren wichtigen Dingen beschäftigt 
ist. Dann ist für Sie das Spiel zu 
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Intelligenzspiel 


Ende. 

Mit den Tasten "1” und "0" steuern 
Sie die Figur nach links und 
rechts. Mit der Taste "9" können 
Sie versuchen ein Loch zu finden, 
und Taste "P" startet einen neuen 
Spielablauf. 


Zur Programmeingabe 

Gehen Sie bitte, wie in dem Arti¬ 
kel: "So geben Sie Maschinenpro¬ 

gramme ein" beschrieben, vor. 

Liste der Variablen: 

A=3*156 
B=226 
C=1 
D=118 

E=16514 bis 16994 
Start: RAND USR 16573 

Helmut Dursch 


1 REM 

481 

Bvtes reserviert 



16738 

13 

CB 

48 

28 

15 

06 

F7 

ED 

034D 

2 SAVE "C[Ll 

" 







16746 

40 

CB 

40 

20 

04 

2B 

BE 

20 

0278 

3 SLOW 









16754 

03 

73 

18 

D9 

23 

BE 

20 

F5 

035D 











16762 

18 

F7 

E5 

19 

73 

19 

36 

80 

034F 











16770 

OD 

20 

FD 

10 

FB 

OD 

2B 

OC 

0279 

16514 

76 

39 

34 

39 

26 

31 

OE 

00 

0181 

16778 

BE 

28 

FB 

21 

56 

40 

06 

06 

02A4 

16522 

00 

00 

IC 

00 

37 

2A 

30 

34 

00E1 

16786 

7E 

B9 

28 

03 

23 

10 

F9 

El 

036F 

16530 

37 

29 

OE 

00 

00 

00 

IC 

76 

0100 

16794 

3E 

28 

BD 

CB 

4C 

3E 

80 

28 

0320 

16538 

35 

3A 

33 

30 

39 

2A 

OE 

00 

0143 

16802 

OC 

30 

OA 

AF 

90 

C6 

03 

3E 

028C 

16546 

00 

00 

IC 

97 

97 

A8 

80 

Bl 

0323 

16810 

80 

OE 

FF 

38 

47 

05 

04 

28 

023D 

16554 

80 

B4 

80 

BA 

97 

97 

76 

2A 

043C 

16818 

12 

05 

28 

40 

05 

28 

12 

19 

00D7 

16562 

54 

40 

09 

22 

54 

40 

OE 

64 

01C5 

16826 

77 

19 

73 

E5 

D9 

11 

63 

40 

0375 

16570 

C3 

E7 

43 

11 

5C 

40 

21 

82 

033D 

16834 

C3 

AB 

42 

E5 

73 

19 

77 

18 

03B0 

16578 

40 

01 

2F 

00 

ED 

BO 

58 

ED 

0352 

16842 

11 

E5 

CD 

CF 

43 

3E 

80 

El 

0474 

16586 

43 

36 

40 

OE 

OC 

ED 

BO 

1 1 

0281 

16850 

E5 

23 

BE 

20 

02 

2B 

2B 

73 

02B1 

16594 

FD 

43 

01 

79 

01 

21 

5C 

40 

0278 

16858 

E3 

19 

19 

36 

08 

El 

B9 

D9 

03C6 

16602 

F9 

AF 

08 

22 

OC 

40 

21 

60 

029F 

16866 

2E 

lE 

38 

02 

2E 

04 

OB 

2D 

OOFO 

16610 

42 

ED 

B8 

13 

EB 

E9 

11 

63 

0442 

16874 

20 

FC 

CB 

78 

28 

03 

01 

00 

028B 

16618 

OB 

3E 

80 

01 

16 

14 

2B 

36 

0155 

16882 

00 

C3 

El 

42 

CD 

CF 

43 

ED 

04B2 

16626 

76 

2B 

77 

OD 

20 

FB 

2B 

36 

02A1 

16890 

5B 

54 

40 

2A 

36 

40 

A7 

ED 

0323 

16634 

76 

2B 

77 

2B 

36 

08 

10 

FB 

028C 

16898 

52 

EB 

30 

09 

22 

36 

40 

11 

021F 

16642 

2B 

77 

15 

20 

E6 

31 

56 

40 

0284 

16906 

6F 

40 

CD 

07 

40 

11 

A7 

40 

02BB 

16650 

54 

C5 

23 

E5 

CD 

00 

40 

06 

0334 

16914 

21 

C3 

43 

01 

OC 

00 

ED 

BO 

02D1 

16658 

06 

3E 

07 

90 

4F 

21 

5B 

40 

01E6 

16922 

21 

85 

42 

3E 

DF 

DB 

FE 

IF 

03FD 

16666 

ED 

5F 

C6 

14 

30 

FC 

OD 

28 

0387 

16930 

38 

F9 

E9 

00 

17 

2C 

26 

32 

02B5 

16674 

06 

2B 

BE 

28 

EC 

18 

F7 

77 

0389 

16938 

2A 

17 

17 

34 

3B 

2A 

37 

17 

013F 

16682 

10 

E7 

El 

36 

17 

7D 

FE 

29 

03C9 

16946 

06 

46 

21 

8A 

40 

23 

7E 

FE 

02D6 

16690 

CB 

4C 

D9 

01 

3D 

00 

28 

OA 

0260 

16954 

76 

28 

FA 

FE 

1 1 

28 

06 

17 

02EC 

16698 

CB 

77 

C2 

96 

43 

38 

03 

01 

0319 

16962 

3F 

IF 

77 

18 

FO 

10 

EB 

C9 

03A1 

16706 

C2 

01 

C5 

69 

60 

11 

7B 

40 

031D 

16970 

06 

00 

3E 

1B 

3C 

A7 

ED 

42 

0271 

16714 

CD 

07 

40 

CI 

D9 

11 

17 

IE 

02F4 

16978 

30 

FA 

09 

12 

13 

B9 

OE 

OA 

0229 

16722 

10 

FE 

15 

20 

FB 

3E 

08 

77 

02FB 

16986 

38 

FO 

3E 

IC 

85 

12 

C9 

00 

02E2 

16730 

01 

FE 

EF 

ED 

40 

CB 

40 

28 

044E 

16994 

76 

00 

00 

00 

00 

00 

00 

00 

0076 


Gripsi 


Rechner: ZX-81 
Programmname: Intelligentes Spiel 
Programmlänge: 7000 Bytes 
Programmiersprache: BASIC 


Zubehör: 16kByte-Erweiterung 

Halten Ihre Freunde Ihre grauen 
Zellen für graue Mäuse? Dem kann 
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Intelligenzspiel 



INTELLIGENTES 



abgeholfen werden: Trainieren Sie 
Ihr Gehirn mit diesem Programm! 

Ihre Aufgabe besteht darin, acht 
graue Steine gegen ebenso viele 
schwarze auszutauschen. Dies mag 
zwar einfach klingen, doch wird es 
durch die Form des Spielfeldes 
erschwert. So haben Sie zwei Recht¬ 
ecke zu Je neun Quadraten, welche 
sich mit einem Quadrat überlappen, 
zur Verfügung. Das Schnittfeld ist 
dabei unbesetzt. 

Um das Problem zu lösen, dürfen Sie 
Ihre Spielsteine durch Ziehen in 
gerader Richtung oder Überspringen 
eines anderen Steines beliebiger 
Farbe auf ein freies Feld bewegen. 
Der Spielsinn ist selbstverständ¬ 
lich, dafür möglichst wenige Züge 
zu benötigen (maximal 66). 


Damit Sie sich besser eingewöhnen, 
können Sie durch Drücken der Taste 
"Z" einen Demonstrations-Durchlauf 
aufrufen. Möchten Sie hingegen 
selbst spielen, tippen Sie ”M”. In 
dieser Variante brauchen Sie immer 
nur die Position des Steines einzu¬ 
geben, den Sie bewegen möchten. Ihr 
ZX-81 springt dann sebständig auf 
das freie Feld. Als besonderes 
"Bonbon" bietet Ihnen das Programm 
die Möglichkeit, mit zwischen 
diesen beiden Alternativen zu wech¬ 
seln. Des weiteren gibt es noch die 
Betriebsart "REPEAT", in welche Sie 
mit "R" gelangen; dabei wird durch 
Drücken einer beliebigen Taste 
(außer 0, SHIFT und BREAK) das 
vorangegangene Spiel noch einmal 
gezeigt. Schließlich kann der je¬ 
weilige Modus durch Betätigen der 
Taste "0" verlassen werden, um ins 
Menü zu gelangen. 

Viel Spaß beim Tüfteln! 

Hinweis zur Programmeingabe 

Das Spiel kann auch im FAST - Modus 
ablaufen. Der Computer schaltet 
nach dem Zeichnen des Spielfeldes 
immer in den MODE, der vor dem 
Start des Spieles durch RUN einge¬ 
stellt war. 

Das letzte Spiel ist stets in A$ 
abgespeichert. Falls Sie "Gripsi" 
mit GOTO 7000 aufzeichnen, können 
Sie dieses nach dem Laden mit Auto¬ 
start noch einmal ansehen. 

Helmut Dursch 


3 LET AZ=1 

115 

NEXT G 

315 

LET 

D$(13)=”LJNP{4*0}4« 

4 IF PEEK 16443<128 THEN LET AZ=0 

150 

LET 

1=1 

3219 

LET 

D$(14)=«LMKQ{4»0}4" 

5 GOTO 7010 

160 

SLOW 

325 

LET 

D$( 15)="QILP{4»0}4" 

6 FAST 

170 

RETURN 

33(9 

LET 

D$(16)="JOMQ{4*0}4" 

7 LET A$='»" 

200 

FAST 

335 

LET 

D$( 17) = '*OKNP{4*0}4'* 

9 CLS 

205 

FOR 

A=0 TO 7 

<(2(9 

DIM 

B$(17,5) 

10 FOR Q=3 TO 27 

210 

PRINT AT A+13t0;"{8*<SPC>}« 

H25 

LET 

B$(1)="S0102« 

15 PLOT 40,Q 

215 

PRINT AT A,13;”{8»<SPC>}" 

430 

LET 

B$(2)=*'S0106'* 

20 PLOT 32,Q 

220 

NEXT A 

435 

LET 

B$(3)="S0110« 

25 PLOT 24,Q 

225 

FOR 

E=0 TO 21 

440 

LET 

B$(4)=«S0502« 

30 PLOT 24,Q+16 

230 

PRINT AT E,21;"{11»<SPC>}” 

445 

LET 

B$(5)=«S0506« 

35 PLOT 16,Q 

235 

NEXT E 

450 

LET 

B$(6)=«S0510" 

40 PLOT 16,Q+16 

250 

DIM 

D$(17,9) 

455 

LET 

B$(7)=*’S0902« 

45 PLOT 8,Q+16 

255 

LET 

D$( 1) = "CGBD{4»0}4'* 

460 

LET 

B$(8) = "S0906'* 

50 PLOT 0,Q+16 

260 

LET 

D$(2)=”HACE{4»0}4« 

465 

LET 

B$(9)="00910" 

60 NEXT Q 

265 

LET 

D$(3) = ‘*AIBF{4»0}4" 

470 

LET 

B$( 10)=»'G0914« 

70 FOR G=0 TO 24 

270 

LET 

D$(4)="FEAG{4*0}4« 

475 

LET 

B$( 11)="G0918'* 

75 PLOT G,43 

275 

LET 

D$(5)='*DFHB{4«0}4'* 

480 

LET 

B$(12)=«G1310” 

80 PLOT G,35 

280 

LET 

D$(6)=»'LDEIC0005” 

485 

LET 

B$( 13)='*G1314'* 

85 PLOT G,27 

285 

LET 

D$(7)='*IAHD{ 4*0}4'* 

490 

LET 

B$( 14)=*'G1318*' 

90 PLOT G+16,27 

290 

LET 

D$(8)="JBIEG0005'' 

495 

LET 

B${ 15)="G1710" 

95 PLOT G, 19 

295 

LET 

D$(9)=”GKOCHJFL8‘' 

500 

LET 

B$(16)=”G1714" 

100 PLOT G+16,19 

300 

LET 

D$( 10)=«HPIKM0005'* 

505 

LET 

B$( 17) = "G1718" 

105 PLOT G+16,11 

305 

LET 

D$(11)=«IQJN{4»0}4" 

600 

FOR 

T=1 TO 8 

110 PLOT G+16,3 

310 

LET 

D$(12)=«NFIMO0005” 

610 

PRINT AT VAL B$(T,2 TO 3),VAL B 
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$(T,4 TO 5);«[ ]« 

620 PRINT AT VAL B$(T+9f2 TO 3)fVAL 
B$(T + 9,4 TO 5h"<<H>>« 

630 PRINT AT VAL B$(T,2 TO 3)+2fVAL 
B$(T,4 TO 5)-l;CHR$ (T+37) 

640 PRINT AT VAL B$(T+9,2 TO 3)+2,V 
AL B$(T+9,4 TO 5)-l;CHR$ (T+46) 
650 NEXT T 

660 PRINT AT 9,10;" " 

670 PRINT AT 11,9;"I" 

690 RETURN 
1000 FOR C=1 TO 8 

1010 IF B$(C,1)<>«G" OR B$(9,1)<>"0 
•» THEN RETURN 
1020 NEXT C 

1030 PRINT AT 20,2;"[BRAVO]" 

1040 LET M*1 
1050 RETURN 

1100 GOSUB 1110 

1101 SLOW 

1102 FOR J=0 TO 450 

1103 IF INKEY$="R« THEN GOTO 5000 

1104 IF INKEY$ = "M'» THEN GOTO 1200 

1105 IF INKEY$="Z" THEN GOTO 3000 

1106 IF INKEY$="W« THEN GOTO 2000 

1108 NEXT J 

1109 GOTO 7010 

1110 LET M=0 

1120 PRINT AT 1,13;"MENSCH=M« 

1130 PRINT AT 2,13;"ZX 81 =Z" 

1140 PRINT AT 3,13;"STOP =0" 

1150 PRINT AT 4,13;"REPEAT=R« 

1160 PRINT AT 5,13;"M<>ZX =W” 

1165 RETURN 

1168 GOSUB 1110 

1169 FOR K=0 TO 200 

1170 IF INKEY$="R" THEN GOTO 5000 
1175 IF INKEY$=”M« THEN GOTO 1200 
1180 IF INKEY$="Z" THEN GOTO 3000 
1185 IF INKEY$="W*' THEN GOTO 2000 
1190 NEXT K 

1195 GOTO 3000 
1200 REM MENSCH 
1210 LET Y=9 
1220 GOSUB 200 
1230 LET A$=”" 

1240 LET N=1 

1250 PRINT AT 1, 131"ZURUECK«;AT 3t 1 
5;"= CC" 

1255 POKE 16418,2 
1258 SLOW 

1260 FOR U=N TO 66 
1270 LET 1=0 
1280 INPUT Z$ 

1290 IF Z$=”0" THEN GOTO 1100 
1300 IF Z$<>"CC” OR A$="" THEN GOTO 
1370 

1310 LET W=CODE A$(LEN A$)-37 
1320 LET A$=A$( TO LEN A$-2) 

1330 LET U=U-1 

1340 PRINT AT ((U-1)/22-INT ((U-1)/ 
22))*22,INT (U/22.2)»4+22;" " 

1350 LET U=U-1 
1360 GOTO 1470 

1370 IF LEN Z$<>1 THEN GOTO 1280 
1380 LET W=CODE Z$-37 
1390 IF W>17 OR W<1 THEN GOTO 1280 
1400 IF ß$(W,l)="0" THEN GOTO 1280 
1410 FOR 0=1 TO VAL D$(Y,9) 

1420 IF Z$=D$(Y,0) THEN GOTO 1450 
1430 NEXT 0 
1440 GOTO 1280 

1450 PRINT AT ((U-1)/22-INT ((U-1)/ 
22))«22,INT (U/22.2)«4+22;Z$+C 
HR$ (Y+37) 

1460 LET A$=A$+Z$+CHR$ (Y+37) 

1470 LET B$(Y,1)=B$(W,1) 

1480 LET B$(W,1)=«0« 

1490 IF B$(Y,1)=«G" THEN PRINT AT V 
AL B$(Y,2 TO 3),VAL B$(Y,4 TO 
, 5);"«h»" 

1 1500 IF B$(y,1)="S" THEN PRINT AT V 

AL B$(y,2 TO 3)tVAL B$(Y,4 TO 
1 5);«[ ]« 

i 1510 PRINT AT VAL B$(W,2 TO 3),VAL 

I 


B$(W,4 TO 5);" " 

1515 IF LEN A$<19 THEN PRINT AT 16, 
0;"{8*<SPC>}« 

1520 IF LEN A$>3 THEN PRINT AT 16,0 
;len a$/2;" ZUEGE"; 

1530 LET Y=W 
1540 GOSUB 1000 
1550 LET N=1 

1560 IF M THEN GOTO 1100 
1570 NEXT U 

1580 PRINT AT 1,13;"[NUR]{4«<SPC>}" 
;at 3,15;"[nicht]";at 5,13;"[v 
ERZAGEN]" 

1590 PAUSE 250 
1600 POKE 16437,255 
1610 GOTO 1100 
2000 REM WECHSEL 

2010 IF NOT LEN A$ THEN GOTO 1100 

2020 FOR P=1 TO 7 

2030 PRINT AT P,13;"{ 8 »<SPC>}" 

2040 NEXT P 
2050 LET S=0 

2060 PRINT AT 20,2;"{5»<SPC>}" 

2070 IF I>=10 THEN GOTO 2130 

2080 IF 1=1 THEN GOTO 2110 

2090 LET N=U 

2100 GOTO 3060 

2110 LET N=L 

2120 GOTO 1250 

2130 LET N=D+1 

2140 LET A$=A$( TO D«2) 

2150 IF 1=11 THEN GOTO 1250 

2160 GOTO 3060 

3000 REM ZX81 

3010 GOSUB 200 

3020 LET Y=9 

3030 LET A$=«" 

3040 LET S=1 

3050 LET N=1 

3060 IF AZ THEN SLOW 

3063 IF NOT AZ THEN FAST 

3065 FOR L=N TO 66 

3070 IF INKEY$="0" THEN GOTO 1100 

3080 GOSUB 1000 

3090 IF M THEN GOTO 1100 

3100 LET E$="" 

3110 LET M$="« 

3120 LET 1$="« 

3130 LET C$="" 

3140 LET 1=1 

3150 LET C$=D$(Y, TO VAL D$(Y,9)) 
3160 IF LEN A$=26 AND S THEN GOTO 3 
480 

3170 FOR R=1 TO LEN C$ 

3180 LET F=CODE C$(R)-37 
3190 IF NOT LEN A$ THEN GOTO 3240 
3200 LET M$=B$((CODE A$(LEN A$)-37) 
, 1 ) 

3210 IF LEN A$=42 AND S THEN GOTO 3 
240 

3220 IF B$(F,1)=«G" AND F>Y AND M$= 
"S" THEN LET E$=E$+C$(R) 

3230 IF B$(F,1)="S" AND F<Y AND M$= 
"G" THEN LET E$=E$+C$(R) 

3240 IF B$(F,1)="S" AND F<Y AND M$< 
>"G" OR B$(F,1)="G" AND F>Y AN 
D M$<>"S" THEN LET I$=I$+C$(R) 
3250 NEXT R 

3260 IF LEN E$ THEN LET Z=3280 
3270 IF LEN E$ THEN GOTO 3320 
3280 IF 1$="" THEN GOTO 3480 
3290 LET E$=I$ 

3300 LET Z=3480 
3310 GOTO 3350 

3320 IF LEN A$<100 OR Y<>9 THEN GOT 
0 3350 

3330 IF E$="J" AND I$="G" OR E$="L" 
AND I$="C" THEN GOTO 3640 
3340 IF E$="H" AND I$="K" OR E$="F" 
AND I$="0" THEN GOTO 3640 
3350 LET 0$="" 

3360 FOR X=1 TO LEN E$ 

3370 LET K$=E$(X) 

3380 IF Y<>9 THEN GOTO 3400 
3390 IF K$="H" OR K$="F" OR K$="J" 


3400 


3410 


3420 

3430 

3440 

3450 

3460 

3470 

3480 


3490 

3500 

3510 

3520 

3530 

3540 

3550 


3560 


3570 


3580 

3590 

3600 

3610 

3620 

3625 

3630 

3640 

3650 

3660 


3670 

3680 

3690 

3700 

3710 


3720 


3730 

3740 

3750 

3760 

3770 

3780 

3790 

5000 

5010 

5015 

5020 

5030 

5040 

5050 

5060 

5070 

5080 


5090 

5100 

5110 

5120 

5130 


5140 


OR K$="L" THEN LET 0$=0$+K$ 

IF Y=6 AND K$="D" OR Y=8 AND K 
$="B" OR Y=10 AND K$="P" OR Y= 
12 AND K$="N" THEN LET 0$=K$ 

IF K$="A" AND (Y=3 OR Y=7) OR 
K$="Q" AND (Y=11 OR Y=15) THEN 
LET 0$=K$ 

NEXT X 

IF 0$<>"" THEN LET £$=0$ 

LET V=INT (RND *LEN E$+1) 

LET I$=E$(V) 

LET E$=E$( TO V-1)+E$(V+1 TO ) 
GOTO 3630 

IF B$(9,l)<>"0" AND (Y=3 OR Y= 
6 OR Y=7 OR Y=8 OR Y=10 OR Y=1 
1 OR Y=12 OR Y=15) THEN LET 1$ 

3 n j ti 

IF !$<>"" THEN LET Z=3510 
IF I$<>"" THEN GOTO 3640 
LET 1$=«« 

FOR H=1 TO LEN C$ 

LET F$=C$(H) 

IF LEN A$<6 THEN GOTO 3560 
IF F$=A$(LEN A$-5) AND CHR$ (Y 
+37)=A$(LEN A$-4) THEN GOTO 35 
70 

IF (F$="H" OR F$="F" OR F$="J" 
OR F$="L") AND CODE F$-37<>Y 
THEN LET E$=E$+F$ 

IF (F$="G" OR F$="K" OR F$="0" 
OR F$="C«) AND CODE F$-37<>Y 
THEN LET I$=I$+F$ 


NEXT H 
LET F$=I$ 

IF LEN E$ THEN LET Z=3620 
IF LEN E$ THEN GOTO 3440 
LET E$=F$ 

GOTO 3440 

IF LEN A$<6 THEN GOTO 3660 
IF A$(LEN A$)=I$ AND E$="" THE 
N GOTO Z 

IF A$(LEN A$)=I$ AND E$<>"" TH 
EN GOTO 3440 

PRINT AT ((L-l)/22-INT ((Lr-l)/ 
22))»22,INT (L/22.2)*4+22;I$;C 
HR$ (Y+37) 

LET A$=A$+I$+CHR$ (Y+37) 

LET W=CODE I$-37 
LET B$(Y,1)=B$(W,1) 

LET B$(W,1)="0" 

IF B$(Y,1)="S" THEN PRINT AT V 
AL B$(Y,2 TO 3),VAL B$(Y,4 TO 
5);"[ ]" 

IF B$(Y,1)="G" THEN PRINT AT V 
AL B$(Y,2 TO 3),VAL B$(Y,4 TO 
5);"«H>>« 

PRINT AT VAL B$(W,2 TO 3)tVAL 
B$(W,4 TO 5);" " 

LET Y=W 

IF LEN A$>3 THEN PRINT AT 16,0 
;LEN A$/2;" ZUEGE" 

LET N=1 
NEXT L 
GOSUB 1000 
GOTO 1100 
REM REPEAT 
GOSUB 200 
SLOW 

IF NOT LEN A$ THEN GOTO 1100 
FOR D=1 TO 66 
IF 1=1 THEN LET 1=11 
IF NOT I THEN LET 1=10 
LET X$=A$(D»2) 

LET W$=A$(D*2-1) 

PRINT AT ((D-l)/22-INT ((D-1)/ 
22))»22,INT (D/22.2)*4+22;W$;X 
$ 

LET Y=CODE W$-37 
LET W=CODE X$-37 
LET B$(W,1)=B$(Y,1) 

LET B$(Y,1)="0" 

IF B$(W,1)="S" THEN PRINT AT V 
AL B$(W,2 TO 3),VAL B$(W,4 TO 
5);"[ ]" 

IF B$(W,1)="G" THEN PRINT AT V 
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Strategie 


AL B$(W,2 TO 3)»VAL B$(W,4 TO 
5);"«H»” 

5150 PRINT AT VAL B$(Y,2 TO 3)iVAL 
B$(Y,4 TO 5);" " 

5160 IF LEN A$=2»D THEN GOTO 1100 
5170 IF INKEY$=”0” THEN GOTO 1100 
5180 IF INKEY$="" THEN GOTO 5170 
5190 IF INKEY$="0" THEN GOTO 1100 
5200 NEXT D 
5210 GOTO 1100 
5220 STOP 

6010 PRINT AT3i0;"TITAN SO 

F T W A R E" 

6020 PRINT AT 5,0;"<<R1W>> <<573137 
8» «8» «2387 1378482R787 137 
>>« 

6030 PRINT AT 6,0;"«8» <<555>> << 
5» <<W48>> <<8>> <<58G4W4888 

>> <<8>> <<8G» <<WG»" 

6040 PRINT AT 7,0; "«Q4525>> <<5>> 
«WG8G8GEW8G5WG8» <<R» <<8>> 
<<8G4GQ»" 

6050 PRINT AT 9,1; "«8{ 4»7} 18 {4»7}5 
277377>> «3{4»7}>> <<5>>" 

6060 PRINT AT 10 , 1;" «8{ 4*G}48 { 4»7} 
1» «5» <<W{4»G}>> <<5>> 


6070 PRINT AT 11,1;"<<E{4»G}58>>{5» 
<SPC>}<<EGGWGG>> <<W{4«G}>> « 
W{4»G}>>" 

6080 POKE 16418,0 

6090 PRINT AT 23,0;"C WEITER : EIN 
E TASTE DRÜECKEN ]" 

6110 LET V$="<<FGFGFGFGFGFGFGFGFGFG 
FGFGFGFGFGFG>>" 

6120 LET U$*"<<GFGFGFGFGFGFGFGFGFGF 
GFGFGFGFGFGF>>" 

6130 FOR B=1 TO 50 
6135 IF B/2-INT (B/2) THEN GOTO 618 
0 

6140 PRINT AT 0,0;V$;AT 1,0;U$;AT 2 
,0;V$;AT 12,0;U$;AT 13,0;V$;AT 
14,0;U$ 

6150 IF NOT B/2-INT (B/2) THEN GOTO 
6190 

6180 PRINT AT 0,0;U$;AT 1,0;V$;AT 2 
,0;U$;at 12,0;V$;AT 13,0;U$;at 
14,0;V$ 

6190 IF INKEY$="" THEN NEXT B 
6200 RETURN 
7000 SAVE "IS" 

7005 GOTO 3 


7010 CLS 

7015 SLOW 

7040 PRINT AT 19,0;"COPYRIGHT ; H.D 
URSCH" 

7060 GOSUB 6000 

7070 PRINT AT 15,0;"SPIELANLEITUNG 
: { 15»<SPC>}" 

7080 PRINT "TAUSCHEN SIE IN MOEGLIC 
HST WENIG" 

7090 PRINT "ZUEGEN DIE ""[ .]""STEIN 
E MIT DEN ""<<A>>""" 

7100 PRINT "STEINEN. AUF DAS FREIE 
FELD DARF" 

7110 PRINT "IN GERADER RICHTUNG GEZ 
OGEN ODER" 

7120 PRINT "UEBER 1 STEIN GESPRUNGE 
N WERDEN." 

7130 PRINT "IN MODUS""M"" NUR AUSGA 
NGSFELD+NL" 

7140 PRINT "EINGEBEN.BEI REPEAT :WI 
E WEITER." 

7150 GOSUB 6000 

7160 GOSUB 6 

7170 GOTO 1168 

21332 


lewine 


Rechner; ZX-81 
Programmname: Lawine 
Programmlänge: 1500 Bytes 
Programmiersprache; Assembler 
Zubehör: 1ökByte-Erweiterung 

'Lawine' ist ein Strategiespiel für 
zwei Personen. Das Spielfeld ist 
schachbrettartig aufgebaut. Durch 
mehrmaliges Setzen auf ein Feld 
kann dieses zur Explosion gebracht 
werden. Um eine solche Explosion zu 
erzeugen, müssen Sie ein inneres 
Feld mit vier Spielsteinen be¬ 
setzen, ein Kantenfeld mit dreien 
und ein Eckfeld mit zweien. Die 
Spielsteine werden durch die Explo¬ 
sion auf ihre Nachbarfelder ge¬ 
schleudert. Sollte dabei ein Nach¬ 
barfeld von gegenerischen Steinen 
belegt sein, wandeln sich diese in 
eigene um. So können sich Explosio¬ 
nen lawinenartig über das ganze 
Spielfeld ausbreiten. Ziel des 
Spieles ist, sämtliche gegnerische 
Spielsteine in eigene umzuwandeln. 

Hinweis zur Programmeingabe 

Um das Maschinenprogramm im Spei¬ 
cher ablegen zu können, müssen Sie 
zuerst eine große REM-Zeile erzeu¬ 
gen. Geben Sie in die Zeile eins 


eine REM-Zeile mit mindestens 1536 
Zeichen ein. Darauf sichern Sie 
diese mit: 

POKE 16510,0 (N/L) 

Jetzt hat die REM-Zeile die Zeilen¬ 
nummer Null und ist vor dem Editie¬ 
ren geschützt. Dann geben Sie das 
BASIC-Programm 'Lawine' ein und 
starten mit RUN 60 die Eingaberou¬ 
tine für die Hexadezimalzahlen. Der 
Computer verlangt nun die erste 
Zeile des Hex-Listings. 

So sieht die Eingabe aus: Adresse, 
NEW LINE, vier Zahlen, NEW LINE, 
vier Zahlen, NEW LINE, usw. Ver¬ 
zichten Sie auf Zwischenräume zwi¬ 
schen den Zahlen. Nach dem fünften 
NEW LINE tippen Sie bitte die dezi¬ 
male Prüfsumme ein: Sie ist am 
rechten Rand des Listings angege¬ 
ben. Der Computer überprüft die 
Eingabe und verlangt die Neueingabe 
der Zeile, falls Sie einen Fehler 
gemacht haben. Ist das gesamte Lis- 
ting eingegeben, löschen Sie die 
Eingaberoutine und speichern nun 
das Programm auf Band. Jetzt steht 
Ihrem Spielvergnügen nichts mehr im 
Wege. Viel Spaß! Andreas Reuter 
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Sinclair ZX 81, Ausgabe 3 










Strategie 


0 REM 1501 Bytes reserviertI 
5 CLS 

10 RAND USR 17663 

20 PRINT AT 15tl;"N0CH EIN SPIEL ? 
Y/N« 

30 IF INKEY$="" THEN GOTO 30 
40 IF INKEY$="Y« THEN GOTO 5 
50 STOP 

60 REM [EINGABEROUTINE] 

70 INPUT I 
80 LET T=0 

90 PRINT AT 2l,0;l;”: 

100 FOR N=»I TO I+7STEP 2 
110 INPUT A$ 

120 LET L=LEN A$ 

130 IF L04 THEN GOTO 110 
140 FOR K=1 TO LSTEP 2 
150 LET D=(CODE A$(K)-28)»16+CODE A 
$(K+l)-28 
160 LET T=T+D 
170 POKE N+(1 AND K<>1),D 
180 NEXT K 
190 PRINT A$;" 

200 NEXT N 
210 INPUT X 

220 IF XOT THEN GOTO 80 
230 PRINT ":”;T 
240 GOTO 70 

16514 Bl A6 BC AE B3 AA 80 00 049E 

16522 27 3E 00 26 IB 37 2A 3A 0141 

16530 39 2A 37 76 76 00 12 00 0198 

16538 33 26 32 2A 00 38 35 2E 0150 

16546 2A 31 2A 37 00 ID 00 OE 00E7 

16554 00 09 00 2A 2E 33 2C 26 00E6 

16562 27 2A 00 ID 00 00 00 00 006E 

16570 00 00 00 00 00 00 00 00 0000 

16578 00 00 00 00 00 00 00 00 0000 

16586 00 00 00 00 00 00 00 00 0000 

16594 00 OD 00 2D 26 39 00 2C 00C5 

16602 2A 3C 34 33 33 2A 33 06 0163 

16610 00 2A 37 37 34 37 06 00 0109 

16618 4E 23 ED BO C9 C5 D5 E5 0556 

16626 CD BB 02 44 4D 51 14 3E 02BE 

16634 00 28 04 CD BD 07 7E El 031C 

16642 Dl CI C9 2A OC 40 3E 16 0325 

16650 11 23 00 OE 07 19 06 13 007B 

16658 23 77 10 FC 11 50 00 OD 0214 

16666 C2 OF 41 2A OC 40 3E OE 01D4 

16674 11 23 00 OE 13 06 07 19 007B 

16682 23 77 11 02 00 10 F8 11 01C6 

16690 OE 00 OD C2 27 41 2A OC 017B 

16698 40 3E 26 23 11 03 00 06 OOEl 

16706 06 19 77 3C 10 FB 2A OC 0213 

16714 40 3E ID 11 44 00 06 06 OOFC 

16722 19 77 3C 11 63 00 10 F8 0248 

16730 C9 CD EF 40 36 80 FE 00 0479 

16738 20 F7 CD EF 40 FE 00 28 0439 

16746 F9 C9 OE 01 D5 CD 5B 41 040F 

16754 FE 76 28 18 C5 06 3A OE 02C7 

16762 40 B9 28 05 OC 10 FA 18 0254 

16770 03 CI 18 E9 CI 77 OC 23 032C 

16778 12 13 18 El El 2B 2B 71 02C6 

16786 79 06 10 OE 00 B9 C8 OC 022A 

16794 10 FB 36 OF C9 2A OC 40 028F 

16802 11 B6 02 19 22 52 4E 11 01B5 

16810 21 00 19 22 54 4E 21 21 0140 

16818 4E 06 24 36 00 23 10 FB 01DC 

16826 21 5A 4E 36 00 3E 17 32 0186 

16834 67 4E 3E 15 32 85 4E C9 02D6 

16842 21 45 4E 36 00 2A 58 4E OlBA 

16850 7E FE 00 20 01 C9 CB 7A 03AB 

16858 20 09 CB 7F 20 01 C9 32 028F 

16866 45 4E C9 CB 7F 28 01 C9 0398 

I 16874 32 45 4E C9 ED 5B 54 4E 0378 

16882 21 El 40 CD E8 40 11 40 0388 

16890 9C IB 7A B3 20 FB C9 3A 0402 

16898 5A 4E 3C 32 5A 4E 2A 58 0240 

I 16906 4E 7E CB 7A 20 12 CB BF 03CD 

1 16914 CB 47 28 10 CB 4F 28 10 029C 

I 16922 CB 57 28 10 CB DF 18 OE 032A 

I 16930 CB FF 18 EC CB C7 18 06 047E 

16938 CB CF 18 02 CB D7 77 C9 0496 

16946 CD 5B 41 06 25 OE 01 B9 025C 

1 16954 28 F6 OC 10 FA 06 D3 OE 031B 

I 16962 2C B9 28 EC OC 10 FA 32 0341 

! 16970 56 4E 77 23 CD 5B 41 06 02AD 


16978 

IC 

OE 

01 

B9 

28 

F6 

OC 

10 

021E 

17498 

40 

43 

CD 

DA 

43 

10 

F7 

23 

0397 

16986 

FA 

06 

DC 

OE 

23 

B9 

28 

EC 

03DA 

17506 

AF 

CB 

F7 

32 

5C 

4E 

CD 

EA 

0504 

16994 

OC 

10 

FA 

32 

57 

4E 

77 

3A 

029E 

17514 

42 

CD 

DA 

43 

OE 

04 

AF 

CB 

03B8 

17002 

56 

4E 

06 

25 

90 

67 

3A 

57 

0257 

17522 

F7 

32 

5C 

4E 

23 

CD 

40 

43 

0346 

17010 

4E 

06 

ID 

90 

FE 

00 

28 

06 

022D 

17530 

CD 

DA 

43 

06 

04 

23 

CD 

B2 

0396 

17018 

47 

AF 

C6 

06 

10 

FC 

84 

26 

0378 

17538 

43 

CD 

DA 

43 

10 

F7 

23 

AF 

0406 

17026 

00 

6F 

11 

20 

4E 

19 

22 

58 

0181 

17546 

CB 

EF 

32 

5C 

4E 

CD 

40 

43 

03E6 

17034 

4E 

C9 

ED 

5B 

52 

4E 

21 

B5 

03D5 

17554 

CD 

DA 

43 

OD 

20 

D8 

23 

CD 

03DF 

17042 

40 

CD 

E8 

40 

ED 

5B 

54 

4E 

041F 

17562 

EA 

42 

CD 

DA 

43 

AF 

CB 

E7 

0577 

17050 

21 

B5 

40 

CD 

E8 

40 

C9 

D5 

04A9 

17570 

32 

5C 

4E 

06 

04 

23 

CD 

40 

0216 

17058 

11 

06 

00 

19 

Dl 

C9 

D5 

11 

02B0 

17578 

43 

CD 

DA 

43 

10 

F7 

23 

CD 

0424 

17066 

06 

00 

ED 

52 

Dl 

C9 

ED 

5B 

0427 

17586 

EA 

42 

CD 

DA 

43 

D5 

11 

00 

03FC 

17074 

54 

4E 

21 

D3 

40 

CD 

E8 

40 

03CB 

17594 

00 

06 

24 

21 

20 

4E 

23 

7E 

015A 

17082 

11 

60 

EA 

IB 

7A 

B3 

20 

FB 

03BE 

17602 

CB 

47 

28 

08 

CB 

7F 

20 

03 

02AF 

17090 

3E 

01 

32 

5B 

4E 

C9 

CD 

8C 

033C 

17610 

14 

18 

01 

IC 

10 

FO 

3A 

5A 

01DD 

17098 

42 

ED 

5B 

52 

4E 

21 

84 

4E 

031D 

17618 

4E 

47 

10 

FE 

FE 

01 

28 

22 

02EC 

17106 

CD 

E8 

40 

CD 

BO 

42 

C9 

CD 

054a 

17626 

AF 

32 

5B 

4E 

D5 

7A 

FE 

00 

03D7 

17114 

8C 

42 

ED 

5B 

52 

4E 

21 

66 

033D 

17634 

CC 

C8 

42 

Dl 

7B 

FE 

00 

CC 

04EC 

17122 

4E 

CD 

E8 

40 

CD 

BO 

42 

C9 

04CB 

17642 

D9 

42 

Dl 

3A 

5B 

4E 

FE 

01 

03CE 

17130 

7E 

CB 

4F 

C8 

3E 

01 

32 

5D 

032E 

17650 

C8 

3A 

5D 

4E 

FE 

01 

CA 

44 

03BA 

17138 

4E 

3A 

5C 

4E 

36 

00 

CB 

7F 

02B2 

17658 

44 

C9 

Dl 

C9 

00 

CD 

05 

41 

03BA 

17146 

28 

OF 

E5 

23 

CD 

OB 

42 

El 

033A 

17666 

CD 

9F 

41 

ED 

5B 

52 

4E 

21 

03B6 

17154 

E5 

CD 

AI 

42 

CD 

OB 

42 

El 

0490 

17674 

98 

40 

CD 

E8 

40 

2A 

54 

4E 

0399 

17162 

C9 

CB 

77 

28 

OF 

E5 

2B 

CD 

041F 

17682 

11 

68 

4E 

CD 

6C 

41 

2A 

52 

02BD 

17170 

OB 

42 

El 

E5 

CD 

AI 

42 

CD 

0490 

17690 

4E 

11 

OE 

00 

19 

36 

IE 

ED 

01C7 

17178 

OB 

42 

El 

C9 

CB 

6F 

28 

OF 

0368 

17698 

5B 

54 

4E 

21 

B5 

40 

CD 

E8 

03C8 

17186 

E5 

23 

CD 

OB 

42 

El 

E5 

CD 

04B5 

17706 

40 

2A 

54 

4E 

11 

86 

4E 

AF 

02A0 

17194 

A8 

42 

CD 

OB 

42 

El 

C9 

E5 

0493 

17714 

32 

5B 

4E 

CD 

6C 

41 

CD 

8C 

03AE 

17202 

2B 

CD 

OB 

42 

El 

E5 

CD 

A8 

0480 

17722 

42 

ED 

5B 

52 

4E 

21 

AB 

40 

0336 

17210 

42 

CD 

OB 

42 

El 

C9 

7E 

CB 

044F 

17730 

CD 

E8 

40 

13 

21 

66 

4E 

CD 

03AA 

17218 

57 

C8 

3E 

01 

32 

5D 

4E 

3A 

0275 

17738 

E8 

40 

2A 

54 

4E 

CD 

32 

42 

0335 

17226 

5C 

4E 

36 

00 

CB 

7F 

28 

15 

0267 

17746 

16 

00 

CD 

CA 

41 

3A 

45 

4E 

02BB 

17234 

E5 

2B 

CD 

OB 

42 

El 

E5 

23 

0413 

17754 

FE 

00 

28 

08 

CD 

EE 

41 

CD 

03F7 

17242 

CD 

OB 

42 

El 

E5 

CD 

Al 

42 

0490 

17762 

8C 

42 

18 

D5 

16 

00 

CD 

01 

029F 

17250 

CD 

OB 

42 

El 

C9 

CB 

77 

28 

042E 

17770 

42 

CD 

DA 

43 

16 

00 

CD 

44 

0353 

17258 

17 

E5 

23 

CD 

OB 

42 

El 

E5 

03FF 

17778 

44 

3A 

5B 

4E 

FE 

01 

C8 

CD 

03BB 

17266 

CD 

AI 

42 

CD 

OB 

42 

El 

E5 

0490 

17786 

8C 

42 

ED 

5B 

52 

4E 

21 

AB 

0382 

17274 

CD 

A8 

42 

CD 

OB 

42 

El 

C9 

047B 

17794 

40 

CD 

E8 

40 

21 

84 

4E 

CD 

03F5 

17282 

CB 

6F 

28 

17 

E5 

2B 

CD 

OB 

0361 

17802 

E8 

40 

2A 

54 

4E 

CD 

32 

42 

0335 

17290 

42 

El 

E5 

CD 

A1 

42 

CD 

OB 

0490 

17810 

16 

80 

CD 

CA 

41 

3A 

45 

4E 

033B 

17298 

42 

El 

E5 

CD 

A8 

42 

CD 

OB 

0497 

17818 

FE 

00 

28 

05 

CD 

EE 

41 

18 

033F 

17306 

42 

El 

C9 

E5 

2B 

CD 

OB 

42 

0416 

17826 

D6 

16 

80 

CD 

01 

42 

CD 

DA 

0423 

17314 

El 

E5 

23 

CD 

OB 

42 

El 

E5 

04C9 

17834 

43 

16 

80 

CD 

44 

44 

3A 

5B 

02C3 

17322 

CD 

A8 

42 

CD 

OB 

42 

El 

C9 

047B 

17842 

4E 

FE 

01 

C8 

C3 

38 

45 

00 

0355 

17330 

7E 

CB 

5F 

C8 

3E 

01 

32 

5D 

033E 

17850 

00 

00 

00 

00 

00 

00 

00 

00 

0000 

17338 

4E 

36 

00 

E5 

23 

CD 

OB 

42 

02A6 

17858 

00 

00 

00 

00 

00 

00 

00 

00 

0000 

17346 

El 

E5 

2B 

CD 

OB 

42 

El 

E5 

04D1 

17866 

00 

00 

00 

00 

00 

00 

00 

00 

0000 

17354 

CD 

AI 

42 

CD 

OB 

42 

El 

E5 

0490 

17874 

00 

00 

00 

00 

00 

00 

00 

00 

0000 

17362 

CD 

A8 

42 

CD 

OB 

42 

El 

C9 

047B 

17882 

00 

00 

00 

00 

00 

00 

00 

00 

0000 

17370 

E5 

C5 

F5 

D5 

2A 

OC 

40 

11 

03FB 

17890 

00 

00 

00 

00 

00 

00 

00 

00 

0000 

17378 

46 

00 

19 

22 

50 

4E 

11 

21 

0151 

17898 

00 

00 

00 

00 

00 

00 

00 

00 

0000 

17386 

4E 

06 

06 

1A 

CB 

7F 

20 

3E 

021C 

17906 

00 

00 

00 

00 

00 

00 

00 

00 

0000 

17394 

OE 

17 

CB 

47 

28 

3C 

71 

23 

022F 

17914 

00 

00 

00 

00 

00 

00 

00 

00 

0000 

17402 

CB 

4F 

28 

3A 

71 

D5 

11 

21 

02F4 

17922 

00 

00 

00 

00 

00 

00 

00 

00 

0000 

17410 

00 

19 

Dl 

CB 

57 

28 

33 

71 

02D8 

17930 

00 

00 

00 

00 

00 

00 

00 

00 

0000 

17418 

2B 

CB 

5F 

28 

31 

71 

2A 

50 

0299 

17938 

00 

00 

00 

00 

00 

00 

00 

00 

0000 

17426 

4E 

23 

23 

23 

22 

50 

4E 

13 

018A 

17946 

00 

00 

00 

00 

00 

00 

00 

00 

0000 

17434 

10 

Dl 

D5 

11 

51 

00 

19 

22 

0253 

17954 

00 

00 

00 

00 

00 

00 

00 

00 

0000 

17442 

50 

4E 

Dl 

7B 

FE 

45 

C2 

EB 

04DA 

17962 

00 

00 

00 

00 

00 

00 

00 

00 

0000 

17450 

43 

Dl 

Fl 

CI 

El 

C9 

OE 

15 

0493 

17970 

00 

00 

00 

00 

00 

00 

00 

00 

0000 

17458 

18 

CO 

36 

00 

18 

CI 

36 

00 

021D 

17978 

00 

00 

00 

00 

00 

00 

00 

00 

0000 

17466 

18 

C3 

36 

00 

18 

CA 

36 

00 

0229 

17986 

00 

00 

00 

00 

00 

00 

00 

00 

0000 

17474 

18 

cc 

AF 

32 

5D 

4E 

21 

21 

02B2 

17994 

00 

00 

00 

00 

00 

00 

00 

00 

0000 

17482 

4E 

CB 

FF 

32 

5C 

4E 

CD 

EA 

04AB 

18002 

00 

00 

00 

00 

00 

00 

00 

00 

0000 

17490 

42 

CD 

DA 

43 

06 

04 

23 

CD 

0326 

18010 

00 

00 

IC 

IC 

76 

00 

00 

00 

OOAE 
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Reaktionstest 


Duell mit Ihrem ZX-81 


Rechner: ZX-81 
Programmname: Duell 
Programmlänge: 1000 Bytes 
Programmiersprache: Assembler 
Zubehör: 1ökByte-Erweiterung 


Steuerung: 

1=runter, 0=rechts. 

2 Spielgeschwindigkeiten: 
P=normal, Q=schnell. 

Ein Spiel hat 50 Runden! 


In diesem Reaktionsspiel gilt es, 
schneller als ein vom Computer 
gesteuerter Läufer (x) zu sein. 
Dieser startet stets zufällig in 
eine von zwei Richtungen zum Ziel. 
Reagieren Sie nun rechtzeitig, so 
kann Ihr Läufer schneller im Ziel 
sein! Haben Sie den Lauf gewonnen, 
erhalten Sie dafür 10 mal die 
angegebene Punktezahl. Erscheint im 
Ziel ein "$"-Zeichen bedeutet dies 
einen Joker! Jetzt schaltet sich 
ein Spielautomat ein, der Ihren 
Punktegewinn ermittelt. 


Hinweis zur Programmeingabe 

Gehen Sie bitte, wie in dem Arti¬ 
kel: "So geben Sie Maschinenpro¬ 

gramme ein" beschrieben, vor. 

Liste der Variablen: 

A=3*172 
B=18 
0=2 
D = 118 

E=16514 bis 17012 
Start: RAND USR 16577 

Helmut Dursch 


1 REM 

529-BYtes reserviert 

! 


16730 

5F 

47 

16 

09 

ID 

20 

FD 

15 

0214 

2 SAVE " 

D L U J" 







16738 

20 

FA 

IE 

19 

CB 

79 

28 

16 

02D3 

3 SLOW 









16746 

79 

DB 

FE 

OF 

38 

08 

E3 

36 

03BA 











16754 

08 

23 

E3 

4B 

18 

08 

3E 

F7 

02AE 

16514 

76 

35 

3A 

33 

30 

39 

2A 

OE 

01B9 

16762 

DB 

FE 

OF 

38 

17 

4A 

CB 

41 

038D 

16522 

00 

00 

00 

00 

IC 

00 

17 

17 

004A 

16770 

28 

02 

IE 

02 

E3 

7D 

FE 

38 

02E0 

16530 

37 

3A 

33 

29 

2A 

OE 

00 

00 

0105 

16778 

28 

09 

FE 

A6 

28 

05 

36 

08 

0240 

16538 

IC 

76 

37 

2A 

30 

34 

37 

29 

01B7 

16786 

19 

36 

17 

E3 

36 

08 

78 

IF 

021E 

16546 

OE 

00 

00 

00 

00 

IC 

00 

97 

00C1 

16794 

15 

5A 

38 

02 

IE 

E7 

19 

7E 

0245 

16554 

A9 

80 

BA 

80 

AA 

80 

Bl 

80 

04BE 

16802 

FE 

17 

28 

OD 

36 

BD 

FE 

08 

0343 

16562 

Bl 

97 

76 

El 

E3 

09 

CI 

E5 

0531 

16810 

28 

BO 

21 

33 

34 

OE 

00 

18 

0186 

16570 

C5 

01 

64 

00 

C3 

EB 

43 

11 

032C 

16818 

OD 

D9 

7B 

D9 

FE 

OD 

28 

14 

0381 

16578 

5C 

40 

21 

82 

40 

01 

33 

00 

01B3 

16826 

6F 

26 

IC 

D6 

IC 

4F 

06 

00 

01F8 

16586 

ED 

BO 

58 

OE 

OC 

ED 

BO 

31 

03DD 

16834 

C5 

22 

36 

40 

21 

FA 

40 

CD 

0385 

16594 

5C 

40 

AF 

08 

ED 

73 

OC 

40 

02FF 

16842 

A5 

43 

18 

2D 

ED 

5F 

C6 

64 

03A3 

16602 

C5 

11 

FD 

43 

01 

A9 

01 

21 

02E2 

16850 

30 

FC 

06 

00 

60 

6F 

C5 

2C 

02F2 

16610 

91 

42 

ED 

B8 

13 

EB 

E9 

11 

0470 

16858 

3E 

64 

BD 

20 

02 

2E 

OA 

3D 

01F6 

16618 

76 

12 

06 

04 

2B 

73 

10 

FC 

023C 

16866 

20 

FD 

E5 

11 

36 

40 

CD 

E8 

043E 

16626 

06 

18 

2B 

73 

2B 

36 

08 

10 

0135 

16874 

43 

3E 

IC 

13 

12 

CD 

D7 

43 

02A9 

16634 

FB 

15 

20 

F4 

48 

C5 

D9 

01 

040B 

16882 

CD 

A2 

43 

El 

CI 

10 

DF 

4D 

0490 

16642 

33 

00 

D9 

11 

65 

40 

CD 

00 

028F 

16890 

C5 

16 

00 

ID 

20 

FD 

15 

20 

024A 

16650 

40 

ED 

5F 

E6 

OF 

20 

04 

3E 

02E3 

16898 

FA 

CD 

D7 

43 

CI 

El 

36 

08 

04C1 

16658 

OD 

18 

06 

C6 

09 

30 

FC 

C6 

02EC 

16906 

C3 

71 

42 

CI 

El 

A7 

ED 

42 

04EE 

16666 

ID 

D9 

5F 

OD 

F5 

C5 

D9 

El 

04D6 

16914 

30 

03 

21 

00 

00 

09 

E5 

IE 

0160 

16674 

IE 

73 

CD 

E8 

43 

Fl 

CA 

79 

04BD 

16922 

7E 

CD 

06 

40 

21 

C9 

42 

36 

02F3 

16682 

43 

21 

8F 

40 

E5 

36 

17 

2E 

0293 

16930 

09 

3E 

DF 

DB 

FE 

IF 

30 

09 

0357 

16690 

A6 

77 

2E 

36 

70 

23 

36 

3D 

0287 

16938 

36 

05 

3E 

FB 

DB 

FE 

IF 

38 

03A4 

16698 

23 

70 

21 

4F 

42 

36 

BD 

E5 

031D 

16946 

EB 

2E 

55 

E9 

21 

F2 

40 

OE 

03B8 

16706 

2E 

38 

77 

CD 

A2 

43 

ED 

5F 

03DB 

16954 

36 

06 

40 

E5 

1 1 

08 

00 

OA 

0184 

16714 

E6 

7F 

C6 

81 

10 

FE 

3D 

20 

0417 

16962 

03 

43 

21 

F8 

ID 

3C 

19 

3D 

020E 

16722 

FB 

CD 

D7 

43 

El 

OE 

EF 

ED 

05AD 

16970 

20 

FC 

7E 

E3 

07 

23 

30 

02 

02D9 


30 
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Abenteuer 


16978 

36 

97 

ID 

20 

F7 

lE 

11 

19 

0249 

17018 

F5 

C9 

01 

OA 

00 

3E 

1B 

3C 

025E 

16986 

lE 

08 

E3 

23 

10 

EC 

El 

11 

031A 

17026 

A7 

ED 

42 

30 

FA 

09 

12 

13 

032E 

16994 

40 

FF 

19 

7D 

FE 

OA 

20 

Dl 

03CE 

17034 

B9 

38 

EF 

3E 

IC 

85 

12 

C9 

039A 

17002 

C9 

21 

F3 

40 

OE 

08 

06 

18 

0251 

17042 

76 

00 

00 

00 

00 

00 

00 

00 

0076 

17010 

36 

08 

23 

10 

FB 

23 

OD 

20 

01BC 












Wilder Westen 


lechner: ZX-81 

Togrammname: Victory 

'rogrammlänge; 1000 Bytes 

'rogrammiersprache; Assembler 

lUbehör: 1 ökByte-Erweiterung 

line kleine Stadt im wilden Westen 
rird von 4 Bösewichten bedroht, 
liese haben sich am rechten Stadt¬ 
rand verschanzt und schießen un- 
Lnterbrochen in die Straßen der 
Itadt. Führen Sie den Sheriff und 
rertreiben Sie die Unholde! Leider 
lat Ihr Sheriff seinen Revolver 
jerade in Reparatur. Und so bleibt 
hm nichts anderes übrig, als sich 
• von Haus zu Haus in Deckung ge- 
lend - zu den Banditen vorzuwagen. 
Ausgangspunkt seiner Bemühungen ist 
sein Büro, am linken oberen Spiel- 
feldrand. Werden seine Unternehmun¬ 
gen nicht von Erfolg gekrönt, er- 
lalten Sie, als sein einziger 
•"reund, sein letztes Gehalt. Die 
lohe desselben hängt davon ab, 
wieviele Felder sich der Sheriff 
ron seinem Ausgangspunkt entfernt 
lat, multipliziert mit 10. 

lur keine Panik 


Gelingt es ihm aber die gegnerische 
jinie zu erreichen, erhält er dafür 
lOO Punkte pro Feld der Angriffs¬ 
reihe von oben gerechnet. Überrum¬ 


pelt er dabei einen der Banditen 
wird die Punktezahl verdoppelt, gar 
vervierfacht wenn der Anführer der 
Bande, der stets die unterster 
Stelle der Angriffsreihe besetzt, 
der Überrumpelte ist. Das Spiel ist 
beendet, wenn die Zeit, ca. 160 
Sekunden, angezeigt in 250 Zeitein¬ 
heiten, abgelaufen ist. Sollten Sie 
Ihren Sheriff vor Ablauf der Zeit 
verlieren, besteht kein Grund zur 
Panik. Selbstverständlich haben Sie 
eine 'Sheriffreserve*. Die jeweils 
höchste erreichte Punktzahl wird 
an gezeigt. 

Steuerung: 

1=auf, 0=ab, 

0+1 (gleichzeitig)=rechts. 

P=Start 

Hinweis zur Programmeingabe 


Gehen Sie bitte, wie in dem Arti¬ 
kel: "So geben Sie Maschinenpro¬ 

gramme ein" beschrieben, vor. 

Liste der Variablen: 

A=5*162 
B=244 
C=1 
D=118 

E=16514 bis 17011 
Start: RAND USR 16571 

Helmut Dursch 


1 REM 

498 Bytes 

1 reserviert! 



16546 

IC 

IC 

IC 

97 

BB 

AE 

A8 

B9 

03B5 

2 SAVE 

: "V[I] 

II 







16554 

B4 

B7 

BE 

97 

76 

El 

E3 

09 

0503 

3 SLOW 








16562 

CI 

E5 

C5 

01 

E8 

03 

C3 

E5 

04FF 










16570 

43 

11 

5C 

40 

21 

82 

40 

01 

01D4 

16514 

76 39 

34 

39 

26 

31 

OE 

00 

0181 

16578 

2D 

00 

ED 

BO 

58 

OE 

OC 

ED 

0329 

16522 

00 00 

00 

IC 

17 

17 

3F 

2A 

00B3 

16586 

BO 

31 

5C 

40 

AF 

08 

ED 

73 

0394 

16530 

2E 39 

OE 

IC 

IC 

IC 

76 

37 

0176 

16594 

OC 

40 

C5 

11 

FD 

43 

01 

91 

02F4 

16538 

2A 30 

34 

37 

29 

OE 

IC 

IC 

0134 

16602 

01 

21 

73 

42 

ED 

B8 

13 

EB 

037A 
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Labyrinth 


16610 

E9 

11 

76 

OB 

3E 

07 

3C 

01 

01 FD 

16818 

21 

87 

40 

D9 

OD 

CB 

41 

D9 

03B3 

16618 

OA 

15 

2B 

73 

2B 

77 

10 

FC 

026B 

16826 

28 

02 

06 

03 

19 

BE 

28 

FC 

022E 

16626 

2B 

73 

2B 

77 

2B 

36 

80 

OD 

022E 

16834 

10 

FA 

E5 

2B 

BE 

20 

06 

73 

0371 

16634 

20 

F8 

2B 

77 

15 

20 

E8 

C5 

039C 

16842 

10 

FD 

77 

18 

F6 

CB 

46 

El 

0484 

16642 

OB 

ED 

43 

34 

40 

03 

11 

63 

0226 

16850 

28 

34 

El 

77 

OE 

FE 

2B 

OC 

02F7 

16650 

40 

CD 

00 

40 

11 

16 

00 

06 

017A 

16858 

BE 

28 

FB 

23 

OC 

A7 

ED 

52 

03F6 

16658 

03 

21 

87 

40 

ED 

5F 

19 

C6 

0316 

16866 

BE 

28 

F9 

06 

32 

21 

88 

40 

0300 

16666 

07 

30 

FB 

3E 

08 

19 

BE 

20 

026F 

16874 

23 

7E 

FE 

76 

28 

FA 

FE 

11 

0446 

16674 

FC 

36 

93 

10 

EC 

21 

6B 

42 

038F 

16882 

28 

06 

17 

3F 

IF 

77 

18 

FO 

0222 

16682 

36 

97 

21 

89 

40 

3E 

F7 

DB 

03C7 

16890 

10 

EB 

43 

21 

87 

40 

19 

36 

0275 

16690 

FE 

4F 

3E 

EF 

DB 

FE 

B9 

3E 

054A 

16898 

08 

10 

FB 

C3 

92 

42 

ED 

5F 

03F6 

16698 

08 

77 

38 

47 

20 

49 

CB 

41 

0273 

16906 

1F 

3E 

08 

46 

77 

38 

04 

19 

0177 

16706 

20 

4B 

23 

BE 

OE 

OA 

28 

14 

01A0 

16914 

BE 

28 

06 

A7 

ED 

52 

BE 

20 

03B0 

16714 

OE 

14 

7E 

FE 

93 

38 

OE 

28 

029F 

16922 

F6 

70 

06 

01 

OD 

20 

9D 

26 

025D 

16722 

02 

OE 

28 

73 

35 

20 

FD 

10 

020D 

16930 

96 

19 

30 

FD 

El 

C3 

B9 

42 

047B 

16730 

FA 

93 

30 

F7 

23 

CB 

76 

2B 

0443 

16938 

El 

CI 

El 

A7 

ED 

42 

30 

02 

048B 

16738 

28 

2B 

7D 

43 

21 

9D 

40 

72 

0283 

16946 

6F 

67 

09 

E5 

IE 

7A 

CD 

06 

032F 

16746 

E5 

19 

30 

FD 

El 

36 

08 

19 

0363 

16954 

40 

OE 

09 

IE 

Dl 

21 

D9 

43 

0283 

16754 

10 

F5 

2E 

87 

04 

19 

BD 

20 

02B4 

16962 

ED 

BO 

21 

6D 

42 

3E 

DF 

DB 

0465 

16762 

FB 

62 

6A 

59 

19 

10 

FD 

44 

038A 

16970 

FE 

IF 

38 

F9 

E9 

2C 

26 

32 

03BB 

16770 

4D 

18 

83 

19 

BE 

28 

06 

A7 

0294 

16978 

2A 

00 

34 

3B 

2A 

37 

01 

64 

015F 

16778 

ED 

52 

BE 

20 

F6 

36 

17 

E5 

0445 

16986 

00 

3E 

1B 

3C 

A7 

ED 

42 

30 

029B 

16786 

2A 

34 

40 

29 

29 

29 

7C 

62 

01F7 

16994 

FA 

09 

12 

13 

B9 

CB 

40 

20 

030C 

16794 

C6 

FB 

38 

01 

7A 

6F 

F5 

11 

0 3E9 

17002 

ED 

OE 

OA 

38 

EC 

3E 

IC 

85 

0308 

16802 

6F 

40 

CD 

E2 

43 

Fl 

30 

7F 

0441 

17010 

12 

C9 

00 

00 

00 

00 

00 

00 

OODB 

16810 

11 

16 

00 

01 

02 

01 

3E 

08 

0071 












Oukk-Bunny 


Rechner: ZX-81 
Programmname: Pace 
Programmlänge: 1000 Bytes 
Programmiersprache: Assembler 
Zubehör: 16kByte-Erweiterung 


zusetzen, das Labyrinth zu überwin¬ 
den. 

Ihre Spielfigur steuern Sie mit den 
Tasten: 

1=links; 9=ab; 0=rechts. 


Flink, wie ein Hase, sollten Sie 
bei diesem Spiel sein. Sie müssen 
sich durch ein Labyrinth den Weg 
bahnen, ohne dabei von einem recht 
schießwütigen Wächter getroffen zu 
werden. Je weiter Sie dabei nach 
unten rechts Vordringen, desto mehr 
Punkte erhalten Sie. Sollten Sie, 
wider Erwarten, von dem Wächter 
doch einmal erwischt werden, können 
Sie auf einen Joker hoffen. Dieser 
erlaubt es Ihnen den Versuch fort- 


Zur Programmeingabe 


Gehen Sie bitte, wie in dem Arti¬ 
kel: "So geben Sie Maschinenpro¬ 

gramme ein” beschrieben, vor. 

Liste der Variablen: 

A=2*162 und 1*164 

B=246 

C=1 


D=118 

E=16514 bis 17241 
Start: RAND USR 16571 


Helmut Dursch 


1 

REM 501 Bytes reserviert! 

16514 

76 

39 

34 

39 

26 

31 

OE 

IC 

019D 

2 

SAVE ''P[A]" 

16522 

IC 

IC 

IC 

IC 

17 

3F 

2A 

2E 

01 IE 

3 

SLOW 

16530 

39 

OE 

IC 

IC 

IC 

IC 

76 

37 

0164 



16538 

2A 

30 

34 

37 

29 

OE 

IC 

IC 

0134 



16546 

IC 

IC 

IC 

95 

B5 

80 

A6 

80 

0344 


32 
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Reaktionsspiel 


16554 

A8 

80 

AA 

95 

76 

El 

E3 

09 

04AA 

16786 

21 

88 

40 

23 

7E 

FE 

76 

28 

0326 

16562 

CI 

E5 

C5 

01 

E8 

03 

C3 

E5 

04FF 

16794 

FA 

FE 

11 

28 

06 

17 

3F 

1F 

02AC 

16570 

43 

11 

5C 

40 

21 

82 

40 

01 

01D4 

16802 

77 

18 

FO 

10 

EB 

ED 

5F 

E6 

04AC 

16578 

2D 

00 

ED 

BO 

58 

OE 

OC 

ED 

0329 

16810 

01 

CI 

El 

28 

2C 

42 

04 

2B 

0268 

16586 

BO 

31 

5C 

40 

AF 

08 

ED 

73 

0394 

16818 

CB 

4E 

28 

FA 

3E 

17 

3D 

19 

02E6 

16594 

OC 

40 

C5 

11 

FD 

43 

01 

91 

02F4 

16826 

CB 

76 

20 

FA 

68 

62 

01 

19 

033F 

16602 

01 

21 

73 

42 

ED 

B8 

13 

EB 

037A 

16834 

00 

3D 

28 

03 

09 

18 

FA 

E5 

0268 

16610 

E9 

11 

16 

16 

3E 

07 

3C 

01 

01A8 

16842 

11 

8B 

40 

CD 

06 

40 

13 

EB 

02ED 

16618 

80 

14 

2B 

36 

76 

2B 

71 

2B 

0232 

16850 

36 

IC 

CD 

BA 

43 

CI 

C3 

AE 

044E 

16626 

77 

10 

FC 

07 

79 

30 

02 

3E 

0273 

16858 

42 

ED 

52 

E5 

C5 

CD 

B7 

43 

04F2 

16634 

08 

15 

20 

EB 

48 

C5 

C5 

E5 

03DF 

16866 

El 

ED 

5F 

1F 

3E 

80 

77 

38 

03B9 

16642 

D9 

Dl 

El 

D9 

2E 

B4 

06 

14 

0460 

16874 

04 

19 

BE 

28 

06 

A7 

ED 

52 

02EF 

16650 

E5 

ED 

5F 

23 

C6 

07 

30 

FB 

044C 

16882 

BE 

20 

F6 

36 

97 

26 

96 

19 

0376 

16658 

36 

08 

El 

19 

10 

F2 

21 

87 

02E2 

16890 

30 

FD 

El 

D9 

E5 

IE 

6E 

CD 

0525 

16666 

40 

ED 

5F 

19 

C6 

06 

30 

FB 

039 c 

16898 

06 

40 

El 

23 

01 

23 

FA 

09 

0271 

16674 

36 

97 

11 

63 

40 

CD 

00 

40 

028E 

16906 

30 

1B 

CI 

El 

ED 

42 

30 

03 

034F 

16682 

11 

16 

00 

21 

89 

40 

E5 

3E 

0234 

16914 

21 

00 

00 

09 

E5 

IE 

7A 

CD 

0274 

16690 

F7 

DB 

FE 

1F 

3E 

08 

77 

30 

03DC 

16922 

06 

40 

21 

6D 

42 

3E 

DF 

DB 

030 E 

16698 

14 

3E 

EF 

DB 

FE 

1F 

30 

08 

0371 

16930 

FE 

1F 

38 

F9 

E9 

ED 

42 

D9 

053F 

16706 

1F 

38 

OF 

3E 

08 

19 

18 

06 

00E3 

16938 

C3 

BA 

42 

21 

El 

43 

3E 

OE 

0350 

16714 

3E 

08 

23 

18 

01 

2B 

BE 

20 

018B 

16946 

D5 

11 

8F 

40 

D5 

01 

06 

00 

0291 

16722 

01 

E3 

El 

E5 

36 

17 

01 

96 

038E 

16954 

ED 

B8 

OE 

07 

09 

30 

FD 

El 

03D1 

16730 

BD 

09 

30 

18 

El 

77 

ED 

5F 

03B2 

16962 

E5 

Dl 

13 

3D 

20 

EE 

01 

01 

0316 

16738 

6F 

E6 

01 

F6 

02 

67 

ED 

5F 

0401 

16970 

14 

36 

80 

2B 

10 

FB 

Dl 

C9 

039A 

16746 

E6 

07 

20 

06 

CD 

B7 

43 

21 

02FB 

16978 

80 

2F 

34 

30 

2A 

37 

01 

64 

01D9 

16754 

BO 

04 

18 

53 

3E 

80 

21 

87 

0285 

16986 

00 

3E 

1B 

3C 

A7 

ED 

42 

30 

029B 

16762 

40 

19 

BE 

28 

FC 

E5 

3E 

08 

0366 

16994 

FA 

09 

12 

13 

B9 

CB 

40 

20 

030 c 

16770 

2B 

BE 

20 

06 

73 

10 

FD 

77 

0306 

17002 

ED 

OE 

OA 

38 

EC 

3E 

IC 

85 

0308 

16778 

18 

F6 

CB 

46 

28 

52 

77 

43 

0353 

17010 

12 

C9 

00 

00 

76 

00 

00 

00 

0151 


Formel 1 mit Hindernissen 


lechner: ZX-81 
^rogrammname; Roadrace 
Programmlänge: 1000 Bytes 
Programmiersprache: Assembler 
Zubehör: 16kByte-Erweiterung 


i.utofahren ist nicht immer einfach. 
For allem, wenn irgendwelche Hin- 
lernisse die Straße verschmälern. 
ienau solche Situationen simuliert 
lieses Geschicklichkeitsspiel. Sie 
außen ein Auto sicher durch eine 
lit Hindernissen übersähte Strecke 
aanövrieren, wobei sich Ihre Eahr- 
^eschwindigkeit stetig erhöht. Hof¬ 
fentlich haben Sie ein gutes Re¬ 
aktionsvermögen, sonst werden Sie 
3S niemals zu Meisterehren bringen, 
le schneller Sie werden, desto mehr 
Punkte erhalten Sie. Bei einem 
Susammenprall summieren sich die 


erreichten Punkte auf einem Total¬ 
punkte zäh 1er. 

Zur Programmeingabe 

Gehen Sie bitte wie in dem Artikel: 
"So geben Sie Maschinenprogramme 
ein" beschrieben vor. 

Liste der Variablen: 

A=3*179 und 1*182 

B=227 

C=2 

D=118 

E=16514 bis 17251 
Start: RAND USR 16581 

Helmut Dursch 


WENN IHR LISTING aus einer 
Fotokopie besteht, läuft dieses 
Programm beim Abtippen nicht! 
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Reaklionsspiel 


1 REM 738 Bytes reserviert! 

2 SAVE »'R[RJ" 

3 SLOW 


16514 

76 

39 

34 

39 

26 

31 

OE 

00 

0181 

16522 

00 

00 

00 

IC 

35 

3A 

33 

30 

OOEE 

16530 

39 

2A 

OE 

00 

00 

00 

00 

IC 

008D 

16538 

00 

3F 

2A 

2E 

39 

OE 

00 

00 

OODE 

16546 

IC 

76 

37 

2A 

30 

34 

37 

29 

01B7 

16554 

OE 

00 

00 

00 

00 

IC 

97 

97 

0158 

16562 

97 

80 

B7 

B4 

A6 

A9 

80 

96 

04E7 

16570 

80 

B7 

A6 

A8 

AA 

B7 

80 

97 

04FD 

16578 

97 

97 

76 

21 

EB 

42 

22 

OC 

0320 

16586 

40 

3E 

FD 

DB 

FE 

1F 

38 

F9 

04A4 

16594 

11 

5C 

40 

21 

82 

40 

01 

43 

01D4 

16602 

00 

ED 

BO 

31 

5C 

40 

AF 

08 

0321 

16610 

ED 

73 

OC 

40 

C5 

11 

EB 

43 

03B0 

16618 

21 

EA 

42 

01 

F6 

01 

ED 

B8 

03EA 

16626 

13 

EB 

E9 

01 

76 

OE 

2B 

71 

0308 

16634 

10 

FC 

48 

C5 

C5 

21 

00 

99 

0398 

16642 

22 

34 

40 

D9 

CI 

AF 

C5 

47 

03EB 

16650 

4F 

D9 

CI 

F5 

11 

63 

40 

CD 

045F 

16658 

C4 

43 

Fl 

DA 

7F 

43 

21 

9E 

0453 

16666 

40 

11 

76 

OA 

06 

20 

3E 

80 

01B5 

16674 

CB 

52 

28 

02 

3E 

08 

23 

77 

0227 

16682 

10 

FC 

23 

73 

15 

20 

ED 

21 

02E5 

16690 

DF 

40 

36 

17 

21 

C6 

41 

36 

02CA 

16698 

17 

21 

70 

41 

D9 

2A 

34 

40 

0260 

16706 

29 

29 

29 

6C 

26 

00 

30 

01 

013E 

16714 

6C 

C5 

F5 

11 

7A 

40 

CD 

DO 

048E 

16722 

43 

Fl 

38 

B5 

El 

IE 

6F 

23 

03B2 

16730 

E5 

CD 

CB 

43 

CI 

00 

D9 

36 

0490 

16738 

08 

3E 

EF 

DB 

FE 

4F 

3E 

F7 

0492 

16746 

DB 

FE 

B9 

3E 

80 

E5 

1 1 

21 

0467 

16754 

00 

28 

OD 

30 

05 

A7 

ED 

52 

0250 

16762 

18 

01 

19 

CB 

7E 

20 

01 

E3 

027F 

16770 

El 

36 

3D 

01 

07 

00 

10 

FE 

026A 

16778 

OD 

20 

FB 

E5 

21 

EO 

40 

2B 

0379 

16786 

BE 

28 

FC 

77 

06 

07 

19 

10 

028F 

16794 

FD 

77 

7D 

FE 

A7 

20 

03 

21 

03DA 

16802 

C7 

41 

2B 

36 

17 

06 

07 

A7 

0234 

16810 

ED 

52 

10 

FB 

36 

17 

3E 

AE 

0383 

16818 

21 

01 

41 

06 

04 

23 

E5 

CB 

0240 

16826 

76 

20 

49 

BE 

28 

06 

19 

10 

01F4 

16834 

FA 

El 

18 

EF 

BE 

20 

06 

2B 

03F1 

16842 

CB 

46 

20 

1B 

23 

19 

10 

F4 

028C 

16850 

El 

E5 

06 

04 

BE 

20 

09 

36 

02ED 

16858 

08 

2B 

CB 

76 

20 

01 

77 

23 

022F 

16866 

19 

10 

Fl 

El 

00 

18 

CC 

El 

03C0 

16874 

06 

28 

El 

21 

5C 

40 

23 

7E 

026D 

16882 

FE 

76 

28 

FA 

FE 

01 

28 

06 

03C3 

16890 

17 

3F 

1F 

77 

18 

FO 

10 

EB 

02EF 

16898 

D9 

C3 

08 

42 

D9 

78 

A7 

3E 

041C 

16906 

00 

20 

01 

79 

D9 

ED 

44 

OE 

02B2 

16914 

00 

OC 

D6 

OB 

30 

FB 

00 

00 

0218 

16922 

00 

10 

FE 

OD 

20 

FB 

21 

37 

028E 

16930 

40 

35 

7E 

E6 

OF 

El 

El 

C2 

046C 


16938 

3F 

42 

ED 

5F 

E6 

OF 

FE 

09 

0 3C9 

16946 

30 

F5 

E5 

21 

21 

41 

OE 

AE 

0349 

16954 

A7 

20 

05 

71 

19 

71 

18 

07 

01E6 

16962 

3D 

20 

06 

19 

71 

19 

71 

18 

018F 

16970 

07 

3D 

20 

06 

71 

19 

71 

19 

017E 

16978 

18 

04 

3D 

20 

03 

71 

18 

06 

010B 

16986 

3D 

20 

05 

71 

19 

19 

18 

07 

0124 

16994 

3D 

20 

06 

71 

19 

19 

71 

18 

018F 

17002 

06 

3D 

20 

05 

19 

19 

71 

18 

0123 

17010 

05 

3D 

20 

03 

19 

19 

19 

71 

0121 

17018 

El 

C3 

3F 

42 

CI 

El 

E5 

A7 

0553 

17026 

ED 

42 

El 

30 

OC 

C5 

IE 

AA 

03D9 

17034 

21 

BO 

43 

01 

OA 

00 

ED 

BO 

02BC 

17042 

El 

E5 

IE 

85 

CD 

CB 

43 

OE 

0452 

17050 

OA 

21 

BA 

43 

11 

91 

41 

ED 

02F8 

17058 

BO 

3E 

FD 

DB 

FE 

10 

FA 

1F 

04ED 

17066 

38 

F7 

C3 

‘FD 

41 

OD 

OD 

37 

0381 

17074 

2A 

30 

34 

37 

29 

OD 

OD 

2C 

0134 

17082 

26 

32 

2A 

00 

00 

34 

3B 

2A 

011B 

17090 

37 

2A 

58 

40 

09 

22 

58 

40 

01BC 

17098 

01 

E8 

03 

18 

03 

01 

64 

00 

016 c 

17106 

3E 

1B 

3C 

A7 

ED 

42 

30 

FA 

0395 

17114 

09 

12 

13 

B9 

CB 

40 

20 

ED 

02FF 

17122 

OE 

OA 

38 

EC 

3E 

IC 

85 

12 

022D 

17130 

C9 

76 

76 

76 

76 

76 

76 

76 

0403 

17138 

76 

76 

76 

76 

97 

97 

97 

B7 

0454 

17146 

B4 

A6 

A9 

80 

96 

80 

B7 

A6 

04F6 

17154 

A8 

AA 

B7 

97 

97 

B7 

B4 

A6 

0548 

17162 

A9 

80 

96 

80 

B7 

A6 

A8 

AA 

04EE 

17170 

B7 

97 

97 

97 

76 

97 

00 

38 

03C1 

17178 

39 

2A 

3A 

2A 

37 

3A 

33 

2C 

0197 

17186 

OE 

00 

OB 

ID 

1A 

IC 

OB 

00 

0077 

17194 

00 

38 

35 

2E 

2A 

31 

OE 

00 

0104 

17202 

OB 

26 

OB 

00 

97 

76 

97 

97 

0277 

17210 

97 

90 

A8 

91 

9D 

A5 

A4 

9F 

04E5 

17218 

80 

AD 

9B 

A9 

BA 

B7 

B8 

A8 

0542 

17226 

AD 

80 

80 

BC 

AA 

AE 

A9 

AA 

0514 

17234 

B3 

80 

80 

97 

97 

97 

76 

76 

0464 

17242 

76 

76 

76 

76 

76 

76 

76 

76 

03B0 

17250 

76 

76 

00 

00 

00 

00 

00 

00 

OOEC 


* * 

; BEIM ABTIPPEN ARBEIT SPAREN t 

{ können Sie sich, wenn Sie mit * 

* der Anforderungskarte am Heft- * 

J ende die Programme auf Daten- * 

* träger anfordern. * 

* Anwenden und auf Ihre Belange J 

J abändern lassen sich diese t 

J Programme allerdings nur mit * 

; Hilfe dieser CHIP-SPECIAL- J 

* Ausgabe. J 

* * 
*#************'***************************% 
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Realctionsspiel 


Gewitter 


techner: ZX-81 
’rograramname; Gewitter 
•rograramlänge: 4000 Bytes 
'rograraraiersprache; BASIC 
Zubehör: lökByte-Erweiterung 

£3 gibt wenig unangenehmere Dinge 
.m Leben, als im Regen zu stehen, 
leinen Weg nicht genau zu kennen, 
ind dann ist es auch noch stockdun- 
rel. Man kann nicht einmal mehr die 
land vor Augen sehen. Doch in genau 
liese Situation begeben Sie sich, 
renn Sie dieses Spiel in Gang brin- 
;en. Glücklicherweise erhellt ab 
lad zu ein Blitz die düstere Umge¬ 


bung. Diese Augenblicke müssen Sie 
nutzen, um Ihren Weg zu erkennen. 
Laufen können Sie allerdings nur im 
Dunklen. Lassen Sie sich überra¬ 
schen, wo Sie landen! Aber Ich 
möchte Sie noch unterstützen, indem 
ich Ihnen kleinen Tip gebe: Ihr 
Ziel ist das Haus. Na, werden Sie 
sagen, das wußte ich doch längst. 
Sicher! Aber Sie wissen bestimmt 
noch nicht, daß das Haus den Schutz 
durch verschiedene Minen besitzt. 
Oder haben Sie diese bereits ken¬ 
nengelernt? 

Und nun viel Spaß im Dunklen! 

Markus Förster 


1 REM GEWITTER 

2 REM FUER CHIP SPECIAL 

3 REM VON MARKUS FOERSTER 
6 CLS 

8 GOTO 200 

9 REM [INIT] 

10 LET T=0 

11 FAST 

12 LET Z=0 

15 LET H=INT (RND »l6)+4 
17 LET X$ = ''[{ 32«-} ]" 

20 LET S=INT (RND *22) 

25 LET B=1+PEEK 16396+256»PEEK 1639 
7 

30 FOR X=1 TO 120-SCH 
35 LET Y=INT (RND »704) 

40 POKE Y+B+INT (Y/32),52 
42 NEXT X 

45 PRINT AT S,T;"»” 

46 PRINT AT H-2,29;"<<Q>>[ ]<<W>>"; 
AT H-1,29;''<<ADA>>”;AT H,29;”<<A 
>> <<A>>''; 

47 RETURN 

50 PRINT AT H- 2 , 29 ;"<<Q>>[ ]<<W>>”; 
AT H-1,29;"<<ADA>>'';AT H,29;’'<<A 
>> <<A>>''; 

52 REM [SPIELEN] 

55 LET P=INT (RND »200)+50 
57 LET Z=Z+1 
60 FOR X=1 TO P 

62 IF X/10OINT (X/10) THEN NEXT X 
65 PRINT AT S,T;" ” 

67 LET Z=Z+1 

70 LET T=T-(INKEY$=''5” AND T>0) + (IN 
KEY$=”8” AND T<31) 

75 LET S=S+(INKEY$=”6” AND S<2l)-(l 


NKEY$=”7” AND S>0) 

80 IF PEEK (B+T+S»33)=CODE "0” THEN 
GOTO 125 

85 PRINT AT S,T;”»‘' 

90 IF S=H AND T=30 THEN GOTO 145 
95 NEXT X 
100 SLOW 

105 FOR X=1 TO SCH 
110 NEXT X 
115 FAST 
120 GOTO 50 
122 REM [ENDE] 

125 SLOW 

130 PRINT AT 0,0;"SIE SIND AUF EINE 
MINE GETRETEN." 

132 PRINT X$ 

135 GOTO 160 
145 SLOW 

150 PRINT AT 0,0;"SIE HABEN IHR HAU 
S IN ";Z;"{7»<SPC>}";AT 1,0;"ZE 
ITEINHEITEN ERREICHT.{9»<SPC>}" 

151 PRINT X$ 

152 PRINT AT H-2,29;"<<Q>>[ ]<<W>>" 
;AT H-1,29;"<<ADA>>";AT H,29;"< 
<AAA>>"; 

160 REM [NEUES SPIEL?] 

170 PRINT AT 20,0;X$;"WOLLEN SIE NO 
CHMAL SPIELEN? J/N" 

180 IF INKEY$="J" THEN GOTO 200 

185 IF INKEY$="N" THEN STOP 

190 GOTO 180 

195 CLEAR 

197 SAVE "GE[W]" 

200 REM [ANLEITUNG] 

2 1 (9 CLS 

220 PRINT "[ GEWITTER ]"," 
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Reaktionsspiel 


(C) MARKUS FOERSTER" 

230 PRINT ”{4»<SPC>}HEILIGENBERG 14 
",”{4»<SPC>}8451 ASCHACH« 

240 PRINT ,,"ERREICHEN SIE IHR HAUS 
AUF DER ANDEREN SEITE EINES M 
INENFELDES." 

250 PRINT «ES IST STOCKDUNKLE NACHT 
UND SIESIND MITTEN IN EINEM GE 
WITTR.« 

260 PRINT «DEN WEG KOENNEN SIE NUR 
SEHEN, WENN ES BLITZT. BEWEGEN 
KOENNEN« 

270 PRINT «SIE SICH NUR BEI DUNKELH 


EIT. DIESTEUERUNG ERFOLGT MIT D 
EN PFEIL-« 

280 PRINT «TASTEN OHNE SHIFT.«,,,"A 
LLES KLAR ?« 

290 PRINT ,,«WAEHLEN SIE EINEN SCHW 
IERIG-{4»<SPC>}KEITSGRAD.(10=SC 
HWER,100=LEICHT)« 

300 INPUT SCH 

310 IF SCH<10 OR SCH>100 THEN GOTO 
300 
315 CLS 
320 GOSUB 10 
330 GOTO 100 


Die glorrekhen Sieben 


Rechner; Zx-81 
Programmname: Street-Fight 
Programmlänge: 1000 Bytes 
Programmiersprache: Assembler 
Zubehör; 16kByte-Erweiterung 

Sie betreten die Straße. Totenstil¬ 
le. Der Wind treibt kleine Staub¬ 
wolken vor sich her. Stiefelabsätze 
kratzen mit einem harten Geräusch 
über den schwarzen Asphalt. Da! 
Objekte bewegen sich auf Sie zu! 
Sie greifen langsam an die Tastatur 
und harren der Dinge, die da kom¬ 
men. Was anderes bleibt Ihnen 
übrig, als diese unheimlichen Sie¬ 
bener abzuschießen, um die nackte 
Haut zu retten? Eine richtige Ent¬ 
scheidung, denn die Siebener brin¬ 
gen 70 Punkte. Und wenn Sie schon 
beim Abschießen sind, sollten Sie 
auch die «X« aufs Korn nehmen, denn 
diese retten Ihre Punkte auf den 
Totalpunktezähler. Doch Vorsicht! 
Nicht immer hilft Ihnen rohe Gewalt 
aus der Patsche. Den schwarzen 



Blöcken müssen Sie wohl oder übel 
ausweichen, sonst werden Sie auf 
den Boden der Tatsachen zurückge¬ 
bracht . 


Zur Programmeingabe 

Gehen Sie bitte wie in dem Artikel: 
«So geben Sie Maschinenprogramme 
ein« beschrieben vor. 

Liste der Variablen: 

A=3*179 und 1*182 

B=227 

C=2 

D=118 

E=16514 bis 17251 
Start: RAND USR 16581 

Helmut Dursch 


1 REM 

738 Bytes reserviert! 


16554 

OE 

00 

00 

00 

00 

IC 

80 

B8 

0162 

2 SAVE " 

S[F] 

1 « 







16562 

B9 

B7 

AA 

AA 

B9 

80 

96 

80 

0513 

3 SLOW 









16570 

AB 

AE 

AC 

AD 

B9 

AA 

B7 

80 

054C 











16578 

80 

A6 

76 

21 

EB 

42 

22 

OC 

0318 

16514 

76 

39 

34 

39 

26 

31 

OE 

00 

0181 

16586 

40 

3E 

FD 

DB 

FE 

IF 

38 

F9 

04A4 

16522 

00 

00 

00 

IC 

35 

3A 

33 

30 

OOEE 

16594 

11 

5C 

40 

21 

82 

40 

01 

43 

01D4 

16530 

39 

2A 

OE 

00 

00 

00 

00 

IC 

008D 

16602 

00 

ED 

BO 

31 

5C 

40 

AF 

08 

0321 

16538 

00 

3F 

2A 

2E 

39 

OE 

00 

00 

OODE 

16610 

ED 

73 

OC 

40 

C5 

11 

EB 

43 

03B0 

16546 

IC 

76 

37 

2A 

30 

34 

37 

29 

01B7 

16618 

21 

EA 

42 

01 

F6 

01 

ED 

B8 

03EA 
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eiücksspiol 


16626 

13 

EB 

E9 

01 

76 

OE 

2B 

71 

0308 

16946 

18 

02 

36 

A3 

El 

C3 

2A 

42 

0303 

16634 

10 

FC 

48 

C5 

C5 

21 

00 

99 

0398 

16954 

CI 

El 

E5 

A7 

ED 

42 

30 

OC 

0499 

16642 

22 

34 

40 

D9 

CI 

1 1 

00 

00 

0241 

16962 

El 

C5 

IE 

A7 

01 

10 

00 

21 

029D 

16650 

D9 

21 

9E 

40 

1 1 

76 

10 

01 

0270 

16970 

87 

43 

ED 

BO 

El 

E5 

IE 

85 

04D0 

16658 

80 

20 

3E 

07 

CB 

5A 

28 

02 

0234 

16978 

CD 

CB 

43 

OE 

10 

21 

97 

43 

02F4 

16666 

OE 

08 

23 

71 

10 

FC 

23 

73 

024C 

16986 

11 

DO 

41 

ED 

BO 

11 

9D 

40 

03AD 

16674 

BA 

15 

38 

EB 

21 

6E 

41 

D9 

039B 

16994 

21 

A3 

42 

36 

OC 

3E 

FD 

DB 

035E 

16682 

D5 

1 1 

63 

40 

CD 

BD 

43 

2A 

0380 

17002 

FE 

10 

FA 

1F 

30 

OC 

36 

06 

029F 

16690 

34 

40 

29 

29 

29 

6C 

60 

30 

01EB 

17010 

3E 

DF 

DB 

FE 

10 

FA 

CB 

47 

0512 

16698 

01 

6C 

F5 

IE 

7A 

CD 

DO 

43 

03DA 

17018 

20 

E9 

EB 

36 

a6 

30 

02 

36 

0338 

16706 

Fl 

El 

DA 

3B 

43 

23 

E5 

IE 

0450 

17026 

B5 

C3 

FD 

41 

OD 

OD 

33 

2A 

032D 

16714 

6F 

CD 

CB 

43 

Dl 

48 

D9 

36 

0472 

17034 

3A 

2A 

37 

00 

37 

2A 

30 

34 

0160 

16722 

12 

E5 

3E 

F7 

DB 

FE 

57 

3E 

049A 

17042 

37 

29 

OD 

OD 

17 

17 

17 

2C 

OOEB 

16730 

EF 

DB 

FE 

BA 

11 

21 

00 

20 

03D4 

17050 

26 

32 

2A 

00 

00 

34 

3B 

2A 

01 1B 

16738 

2C 

1F 

38 

37 

23 

7E 

FE 

08 

0261 

17058 

37 

17 

17 

17 

21 

5C 

40 

23 

015C 

16746 

20 

OA 

06 

96 

36 

16 

10 

FC 

021E 

17066 

7E 

FE 

76 

28 

FA 

FE 

01 

28 

043B 

16754 

36 

08 

18 

FO 

FE 

81 

38 

23 

0320 

17074 

06 

17 

3F 

1F 

77 

18 

FO 

10 

020A 

16762 

36 

08 

El 

D9 

OE 

07 

FE 

A4 

03AF 

17082 

EB 

C9 

2A 

58 

40 

09 

CB 

7C 

03C6 

16770 

38 

08 

06 

OA 

CD 

A7 

43 

42 

0249 

17090 

28 

03 

21 

00 

00 

22 

58 

40 

0106 

16778 

4B 

00 

D9 

18 

1 1 

36 

08 

30 

01BB 

17098 

01 

E8 

03 

18 

03 

01 

64 

00 

016C 

16786 

02 

19 

19 

A7 

ED 

52 

CB 

7E 

0363 

17106 

3E 

1B 

3C 

A7 

ED 

42 

30 

FA 

0395 

16794 

20 

01 

E3 

El 

36 

12 

E5 

01 

0313 

17114 

09 

12 

13 

B9 

CB 

40 

20 

ED 

02FF 

16802 

OC 

00 

10 

FE 

OD 

20 

FB 

21 

0263 

17122 

OE 

OA 

38 

EC 

3E 

IC 

85 

12 

022D 

16810 

BF 

40 

3E 

12 

06 

08 

23 

E5 

0265 

17130 

C9 

76 

76 

76 

76 

76 

76 

76 

0403 

16818 

CB 

76 

20 

48 

CB 

7E 

20 

06 

0318 

17138 

76 

76 

76 

76 

97 

B8 

B9 

B7 

0497 

16826 

19 

10 

F9 

El 

18 

EE 

CB 

7E 

0452 

17146 

AA 

AA 

B9 

96 

AB 

AE 

AC 

AD 

0555 

16834 

28 

05 

2B 

BE 

28 

IC 

23 

19 

0196 

17154 

B9 

AA 

B7 

80 

80 

B8 

B9 

B7 

0542 

16842 

10 

F4 

El 

E5 

06 

08 

CB 

7E 

0421 

17162 

AA 

AA. 

B9 

96 

AB 

AE 

AC 

AD 

0555 

16850 

28 

OA 

7E 

36 

08 

2B 

CB 

76 

025A 

17170 

B9 

AA 

B7 

97 

76 

97 

38 

39 

042F 

16858 

20 

01 

77 

23 

19 

10 

EF 

El 

02B4 

17178 

2A 

3A 

2A 

37 

OE 

IC 

1A 

ID 

0126 

16866 

18 

C8 

23 

E3 

06 

32 

CD 

A7 

0392 

17186 

00 

38 

35 

2E 

2A 

31 

OE 

26 

012A 

16874 

43 

El 

CB 

46 

El 

D9 

01 

9C 

048C 

17194 

1A 

35 

00 

2B 

2E 

37 

2A 

OE 

0117 

16882 

FF 

20 

06 

ED 

62 

ED 

52 

E5 

0498 

17202 

IC 

15 

ID 

00 

97 

76 

97 

97 

0289 

16890 

CI 

C3 

08 

42 

El 

D9 

7A 

A7 

04A9 

17210 

97 

90 

A8 

91 

9D 

A5 

A4 

9F 

04E5 

16898 

3E 

FF 

20 

01 

7B 

D9 

10 

FE 

03C0 

17218 

80 

AD 

9B 

A9 

BA 

B7 

B8 

A8 

0542 

16906 

C6 

OA 

30 

FA 

ED 

5F 

E6 

OF 

043B 

17226 

AD 

80 

80 

BC 

AA 

AE 

A9 

AA 

0514 

16914 

FE 

08 

El 

D2 

2A 

42 

E5 

3C 

0446 

17234 

B3 

80 

80 

97 

97 

97 

76 

76 

0464 

16922 

21 

BE 

40 

19 

3D 

20 

FC 

3A 

02CB 

17242 

76 

76 

76 

76 

76 

76 

76 

76 

0 3B0 

16930 

34 

40 

E6 

1F 

20 

04 

36 

BD 

0290 

17250 

76 

76 

00 

00 

00 

00 

00 

00 

OOEC 

16938 

18 

OA 

FE 

08 

30 

04 

36 

80 

0212 












Vinbanque 


echner: ZX-81 
rogrammname: Yabanque 
rogrammlänge: 1000 Bytes 
rogrammiersprache; Assembler 
ubehör: 1ökByte-Erweiterung 


ind Sie ein Glückspilz? Spätestens 
.ach dem Eingeben und Absolvieren 
■ieses Spiels wissen Sie es. Ziel 
es Spieles ist es, möglichst viele 
.uf einem Spielfeld verteilte Punk¬ 


te einzusammeln. Dazu dient der von 
Ihnen bediente Fänger, der von der 
linken oberen Ecke in die rechte 
untere Ecke bewegt werden kann. Der 
Fänger wird mit der Taste <1 > nach 
unten, mit der Taste <0> nach 
rechts gesteuert. Treffen Sie auf 
ein Punktefeld, so erhalten Sie 
dessen zehnfachen Wert gutgeschrie¬ 
ben. Kommen Sie auf eine Null be¬ 
deutet dies einen zufallsgesteuer- 


ine Publikation von CHIP 
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Glücksspiel 


ten Positionswechsel innerhalb des 
Feldes für Sie. Treffen Sie dagegen 
auf ein <A>-Peld, setzt sich eine 
automatische Auslosung in Gang. Als 
Ergebnis erhalten Sie entweder 
Punkte zwischen 100 und 900 ^tge- 
schrieben, oder eine <0>, die die 
oben beschriebene Wirkung hat. 
Sollten Sie ein <A> erhalten, wer¬ 
den Sie in die Anfangsposition 
zurückgesetzt. 

Glück und Unglück 

Eine Besonderheit ist die Spalte 
mit den schwarzen Zahlen am rechten 
Spielfeldrand. Besetzt der Fänger 
eine der Zahlen von 1 bis 6, erhält 
er den hundertfachen Wert als Punk¬ 
te gutgeschrieben und rückt dann 
ein Feld nach unten. Trifft er 
dabei auf ein <0>-Feld, bedeutet 
dies einen zufälligen Positions¬ 
wechsel innerhalb der Spalte. Bei 


einer <7> kommt der Vabanque-Gene- 
rator ins Spiel. Je nach Spielglück 
erhalten Sie bis zu mehreren Tau¬ 
send Punkten, oder - wenn Sie Pech 
haben - eine <0>. Diese Null redu¬ 
ziert allerdings Ihren Gesamtpunk- 
testand auf Null. 

Ein neue Höchstpunktzahl wird als 
Punkterekord angezeigt. Das Spiel 
wird mit <P> neu gestartet. 

Hinweis zur Programmeingabe 

Gehen Sie bitte, wie in dem Arti¬ 
kel; "So geben Sie Maschinenpro¬ 
gramme ein" beschrieben, vor. 

Liste der Variablen; 

A=5*163 
B=247 
C=1 
D=118 

E=16514 bis 17015 
Start; RAND USR 16581 

Helmut Dursch 


1 REM 

502,Bytes reserviert 



16738 

19 

18 

07 

23 

CB 

76 

20 

D3 

028F 

2 SAVE "VLAl" 







16746 

El 

23 

E5 

7E 

FE 

80 

28 

CB 

04D8 

3 SLOW 









16754 

73 

01 

IC 

00 

21 

6F 

40 

71 

01D1 











16762 

23 

71 

D5 

EB 

30 

51 

91 

28 

038E 

16514 

76 

39 

34 

39 

26 

31 

OE 

00 

0181 

16770 

27 

FE 

OA 

38 

1A 

OE 

OB 

CD 

0267 

16522 

00 

00 

00 

IC 

35 

3A 

33 

30 

OOEE 

16778 

CD 

43 

28 

IC 

FE 

OA 

38 

09 

029D 

16530 

39 

2A 

OE 

00 

00 

IC 

IC 

76 

011F 

16786 

Dl 

El 

36 

80 

21 

8B 

40 

18 

036c 

16538 

37 

2A 

30 

34 

37 

29 

OE 

00 

0133 

16794 

Bl 

47 

AF 

C6 

OA 

10 

FC 

4F 

03D2 

16546 

00 

00 

00 

IC 

97 

BB 

A6 

A7 

02BB 

16802 

lE 

63 

CD 

00 

40 

Dl 

18 

93 

030A 

16554 

A6 

B3 

B6 

BA 

AA 

97 

'76 

2A 

04AA 

16810 

3A 

34 

40 

47 

Dl 

21 

8B 

40 

02B2 

16562 

58 

40 

09 

22 

58 

40 

06 

03 

0164 

16818 

36 

80 

23 

7E 

FE 

76 

28 

FA 

03ED 

16570 

C3 

EO 

43 

1 1 

5C 

40 

21 

82 

0336 

16826 

FE 

11 

28 

Fl 

FE 

80 

20 

F2 

04B8 

16578 

40 

01 

2F 

00 

ED 

BO 

58 

31 

0296 

16834 

73 

93 

30 

FC 

10 

EA 

OD 

20 

0359 

16586 

5C 

40 

C5 

OE 

OC 

ED 

BO 

11 

0329 

16842 

E7 

E3 

36 

80 

C3 

B4 

42 

D6 

050F 

16594 

FD 

43 

01 

8F 

01 

21 

5C 

40 

028E 

16850 

9C 

28 

3C 

FE 

07 

OE 

OA 

38 

0255 

16602 

AF 

08 

22 

OC 

40 

21 

75 

42 

01 FD 

16858 

OF 

1B 

OE 

03 

CD 

CD 

43 

20 

0238 

16610 

ED 

B8 

13 

EB 

E9 

11 

63 

15 

0415 

16866 

05 

CD 

04 

40 

18 

OF 

OE 

64 

01AF 

16618 

2B 

36 

76 

01 

80 

16 

2B 

36 

01CF 

16874 

60 

68 

09 

3D 

20 

FC 

E5 

CI 

03D0 

16626 

76 

2B 

71 

10 

FC 

15 

20 

F3 

0346 

16882 

IE 

63 

CD 

00 

40 

Dl 

El 

E5 

0425 

16634 

48 

31 

5A 

40 

C5 

54 

E5 

CD 

03DE 

16890 

ED 

5F 

OD 

20 

FD 

10 

F9 

01 

0380 

16642 

00 

40 

11 

17 

00 

21 

Al 

40 

016A 

16898 

94 

BD 

09 

El 

38 

22 

E6 

07 

0382 

16650 

06 

14 

E5 

OE 

11 

ED 

5F 

C6 

0330 

16906 

C6 

9C 

77 

19 

C3 

F4 

42 

Dl 

04BC 

16658 

15 

30 

FC 

3C 

El 

E5 

23 

3D 

03A3 

16914 

El 

36 

9D 

ED 

5F 

4F 

21 

89 

03F9 

16666 

20 

FC 

ED 

5F 

C6 

OB 

30 

FC 

0465 

16922 

40 

19 

7E 

CB 

7F 

28 

F7 

73 

03B3 

16674 

C6 

IC 

77 

OD 

20 

E7 

El 

19 

0367 

16930 

10 

FD 

77 

OD 

20 

F3 

18 

E4 

03A0 

16682 

10 

EO 

06 

15 

21 

AO 

40 

ED 

02F9 

16938 

El 

Dl 

A7 

ED 

52 

38 

08 

19 

03F1 

16690 

5F 

81 

E6 

07 

C6 

9C 

77 

4E 

03F4 

16946 

E5 

11 

7B 

40 

CD 

07 

40 

D5 

039A 

16698 

19 

10 

F4 

El 

73 

06 

02 

4B 

02C4 

16954 

21 

6F 

42 

3E 

DF 

DB 

FE 

IF 

03E7 

16706 

15 

20 

FD 

OD 

20 

FA 

36 

80 

030F 

16962 

38 

F9 

E9 

ED 

5F 

81 

30 

FD 

0514 

16714 

10 

F5 

E5 

3E 

EF 

DB 

FE 

1F 

050F 

16970 

C6 

IC 

12 

2D 

20 

FC 

D6 

IC 

032F 

16722 

30 

11 

3E 

F7 

DB 

FE 

1F 

38 

03A6 

16978 

10 

Fl 

65 

lE 

63 

C9 

OE 

E8 

03A6 

16730 

E2 

01 

AA 

BD 

09 

38 

DC 

El 

0448 

16986 

3E 

1B 

3C 

A7 

ED 

42 

30 

FA 

0395 


38 


Sinclair ZX 81, Ausgabe 3 












Glücksspiel 


16994 09 12 13 B9 CB 40 01 64 0257 
17002 00 20 ED OE OA 38 E9 3E 0284 
17010 IC 85 12 C9 00 76 00 00 01F2 


Oa s»[0(0 


Spielhallen-Gambler 



Rechner; ZX-81 
Programmname: G-amhler 
Programmlänge: 1000 Bytes 
Programmiersprache: Assembler 
Zubehör; 16kByte-Erweiterung 


Einen Spielautomaten, wie er in 
jeder Spielhalle zu finden ist 
imitiert dieses Programm. Leider 
können Sie nur Punkte gewinnen. 
Dafür müssen Sie kein Geld in Ihren 
Computer werfen. 

Steuerung: 

1=Start, 0=Stop, A=Neues Spiel. 
Hinweis zur Programmeingabe 

Gehen Sie bitte, wie in dem Arti¬ 
kel: "So geben Sie Maschinenopro¬ 

gramme ein" beschrieben, vor. 

Liste der Variablen: 

A=7*105 
B=247 
C=2 
D=118 

E=16514 bis 17271 
Start: RAND USR 16626 

Helmut Dursch 


1 REM 

758 

Bytes reserviert 

! 


16682 

76 

2B 

10 

FB 

EB 

21 

Fl 

40 

03E9 

2 SAVE 

i "G[A] 

11 







16690 

OE 

31 

ED 

B8 

CD 

CE 

43 

C5 

0487 

3 SLOW 









16698 

D9 

CI 

D9 

C5 

C5 

60 

69 

11 

04D7 

16514 

76 

39 

34 

39 

26 

31 

00 

OE 

0181 

16706 

7D 

40 

CD 

06 

40 

CI 

IE 

64 

0313 

16522 

00 

00 

00 

00 

IC 

00 

17 

38 

006B 

16714 

CD 

00 

40 

IE 

71 

D9 

C5 

03 

033D 

16530 

35 

2E 

2A 

31 

OE 

00 

00 

00 

OOCC 

16722 

D9 

El 

CD 

06 

40 

OE 

C8 

3E 

0 3E1 

16538 

IC 

76 

35 

3A 

33 

30 

39 

2A 

01C7 

16730 

FD 

DB 

FE 

1F 

El 

30 

D5 

E5 

05C0 

16546 

OE 

00 

00 

00 

00 

IC 

00 

97 

00C1 

16738 

10 

F5 

OD 

20 

F2 

ED 

5F 

47 

03B7 

16554 

97 

AC 

A6 

B2 

A7 

Bl 

AA 

B7 

0554 

16746 

OE 

78 

C5 

3A 

34 

40 

47 

OE 

024E 

16562 

97 

97 

76 

El 

E3 

09 

CI 

E5 

0517 

16754 

78 

C5 

ED 

5F 

81 

47 

OE 

AO 

03FF 

16570 

C5 

01 

E8 

03 

C3 

E5 

43 

8D 

0429 

16762 

C5 

CI 

79 

A7 

28 

2E 

FE 

3C 

0436 

16578 

8D 

8D 

94 

A2 

9C 

9C 

9C 

80 

04A4 

16770 

20 

02 

OE 

B4 

FE 

AF 

38 

15 

02DE 

16586 

BD 

BD 

BD 

94 

BD 

9C 

9C 

80 

0540 

16778 

OC 

1 1 

A3 

41 

21 

8F 

43 

CD 

02C1 

16594 

96 

9F 

9F 

94 

9F 

9C 

9C 

76 

04B5 

16786 

87 

43 

3E 

F7 

DB 

FE 

1F 

38 

042F 

16602 

96 

9D 

9D 

94 

80 

9D 

9C 

9C 

04B9 

16794 

02 

OE 

3B 

18 

OE 

OD 

16 

21 

00B5 

16610 

80 

BD 

BD 

97 

94 

80 

BD 

9C 

04FE 

16802 

CD 

60 

43 

2E 

36 

D6 

05 

D4 

0383 

16618 

80 

96 

96 

97 

94 

80 

9F 

9C 

0492 

16810 

77 

43 

72 

37 

El 

C5 

44 

4D 

039A 

16626 

21 

FF 

42 

22 

OC 

40 

3E 

DF 

02ED 

16818 

38 

04 

79 

A7 

28 

OF 

11 

AB 

024F 

16634 

DB 

FE 

1F 

38 

F9 

11 

5C 

40 

03D6 

16826 

41 

3E 

F7 

CD 

53 

43 

2E 

37 

033E 

: 16642 

21 

82 

40 

01 

33 

00 

ED 

BO 

02B4 

16834 

CD 

69 

43 

72 

37 

El 

E3 

C5 

04AB 

, 16650 

58 

OE 

OC 

ED 

BO 

31 

5C 

40 

02DC 

16842 

44 

4D 

38 

04 

79 

A7 

28 

38 

024D 

; 16658 

AF 

08 

ED 

73 

OC 

40 

11 

FD 

0371 

16850 

1 1 

B3 

41 

3E 

EF 

CD 

53 

43 

0395 

: 16666 

43 

01 

D9 

01 

21 

FE 

42 

ED 

036c 

16858 

2E 

38 

16 

17 

A7 

28 

16 

16 

018E 

' 16674 

B8 

C3 

25 

42 

EB 

06 

07 

36 

0310 

16866 

1F 

3D 

28 

11 

16 

21 

3D 

28 

0131 


Eine Publikation von CHIP 
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Physik 


16874 

OC 

16 

25 

3D 

28 

07 

16 

ID 

00E6 

17074 

07 

23 

30 

02 

36 

17 

ID 

20 

00E6 

16882 

D6 

04 

D4 

7C 

43 

72 

Dl 

El 

0491 

17082 

F7 

IE 

11 

19 

IE 

08 

E3 

23 

026B 

16890 

C5 

D5 

E5 

06 

50 

10 

FE 

CD 

04B0 

17090 

10 

EC 

El 

11 

40 

FF 

19 

7D 

03C3 

16898 

CE 

43 

CD 

99 

43 

C3 

7A 

42 

0439 

17098 

FE 

D8 

20 

Dl 

C9 

21 

8F 

40 

0480 

16906 

El 

El 

01 

00 

00 

3A 

38 

40 

0275 

17106 

11 

76 

08 

OE 

OE 

06 

18 

72 

013B 

16914 

2A 

36 

40 

FE 

17 

20 

11 

7C 

0262 

17114 

23 

10 

FC 

73 

23 

OD 

20 

F5 

02E7 

16922 

BD 

28 

04 

OE 

03 

18 

1B 

OE 

013B 

17122 

C9 

01 

64 

00 

3E 

1B 

3C 

A7 

026A 

16930 

3C 

D6 

IC 

38 

01 

4F 

18 

12 

01E0 

17130 

ED 

42 

30 

FA 

09 

12 

13 

B9 

0340 

16938 

BC 

20 

OF 

D6 

IC 

38 

OD 

FE 

0320 

17138 

CB 

40 

20 

ED 

OE 

OA 

38 

EC 

0354 

16946 

04 

30 

09 

47 

AF 

C6 

OA 

10 

0213 

17146 

3E 

IC 

85 

12 

C9 

76 

76 

76 

031C 

16954 

FC 

4F 

18 

13 

C6 

IC 

BD 

20 

0335 

17154 

76 

76 

76 

76 

76 

76 

76 

76 

03B0 

16962 

OE 

01 

58 

02 

D6 

IC 

38 

07 

019A 

17162 

97 

97 

AC 

80 

A6 

80 

B2 

80 

04B2 

16970 

47 

AF 

C6 

OA 

10 

FC 

4F 

C3 

03E4 

17170 

A7 

80 

Bl 

80 

AA 

80 

B7 

97 

04D0 

16978 

3D 

42 

38 

OB 

OD 

CD 

84 

43 

0263 

17178 

97 

AC 

80 

A6 

80 

B2 

80 

A7 

04C2 

16986 

DB 

FE 

1F 

38 

02 

OE 

00 

05 

0245 

17186 

80 

Bl 

80 

AA 

80 

B7 

97 

97 

04C0 

16994 

78 

26 

40 

C6 

OA 

30 

FC 

C9 

03A3 

17194 

76 

97 

38 

35 

2E 

2A 

31 

OE 

0211 

17002 

16 

ID 

A7 

C8 

16 

21 

D6 

03 

02B2 

17202 

35 

00 

28 

31 

2A 

26 

37 

OE 

0123 

17010 

D8 

16 

1F 

D6 

02 

D8 

16 

25 

02F8 

17210 

26 

00 

38 

39 

26 

37 

39 

18 

0145 

17018 

D6 

02 

D8 

16 

23 

D6 

02 

D8 

0399 

17218 

38 

39 

34 

35 

OE 

ID 

1A 

IC 

013B 

17026 

16 

OD 

C9 

21 

94 

43 

C5 

01 

02AA 

17226 

97 

76 

97 

97 

90 

A8 

91 

9D 

04A1 

17034 

05 

00 

ED 

BO 

CI 

C9 

38 

39 

039D 

17234 

A5 

A4 

9F 

80 

AD 

9B 

A9 

BA 

0513 

17042 

26 

37 

39 

38 

39 

34 

35 

00 

0170 

17242 

B7 

B8 

A8 

AD 

80 

A4 

AO 

A4 

052C 

17050 

21 

CO 

40 

OE 

36 

06 

40 

E5 

0290 

17250 

9C 

80 

BC 

AA 

AE 

A9 

AA 

B3 

0536 

17058 

1 1 

08 

00 

OA 

03 

43 

21 

F8 

0182 

17258 

97 

97 

76 

76 

76 

76 

76 

76 

03F2 

17066 

ID 

3C 

19 

3D 

20 

FC 

7E 

E3 

032C 

17266 

76 

76 

76 

76 

76 

76 

00 

00 

02C4 


Gesetze der Mechanik 


Rechner; ZX-81 

Programmname: Physikalische Bewe¬ 
gungsgesetze 

Programmlänge: 7000 Bytes 

Programmiersprache; BASIC 
Zubehör: 1ökByte-Erweiterung 

Drucker 

Tagtäglich begegnen wir ihnen, ohne 
sie besonders zu registrieren: Die 
Bewegungsgesetze der Mechanik. Da¬ 
bei ist die Berechnung und die 
graphische Darstellung von gleich¬ 
förmigen und beschleunigten Bewe¬ 
gungen, vor allem für Schüler, 
nicht uninteressant. Genau diese 
Möglichkeiten bietet das Programmm, 
das Ihnen folgende Optionen bietet: 

Tabelle und Diagramm 

Gleichförmige und beschleunigte 
Bewegungen werden als Tabelle und 
als Diagramm ausgewertet. Achten 
Sie bitte darauf, daß bei der Ein¬ 
gabe der Punktionen keine Einhei¬ 


ten, sondern nur Zahlen und Größen 
angegeben werden. Beispiel; 
s=4.9*t*t entspricht s=1/2*a*t''2, 
mit a=9*8 m/s''2. 

Drei Diagramme übereinander 

Hier können drei verschiedene Bewe¬ 
gungen in einem Diagramm darge¬ 
stellt werden. Sie müssen aller¬ 
dings vor Eingabe der Punktionen 
die maximalen Zahlenwerte für die 
X- und y-Achse abschätzen. 

Preier Pall 

Der freie Pall in Vakuum wird in 
Tabellenform ausgegeben. 

Preier Pall in Luft 

Der freie Pall in Luft wird tabel¬ 
larisch dargestellt. Dazu erwartet 
das Programm von Ihnen die Eingabe 
der Querschnittsfläche des fallen¬ 
den Körpers, sowie die Angabe eines 
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3w-Wertes für denselben. Eine Ta¬ 
belle mit Cw-Werten für verschie- 
iene Körper hilft Ihnen hierbei. 
Das Zeitintervall dt für die Dar¬ 
stellung sollte nicht kleiner als 
D,2 Sekunden sein, da sonst die 
lechenzeit erheblich zunimmt. 

Sur Programmeingabe 


TABELLE CU-WERTE 


KREISSCHEIBE 1.1 

KUGEL 0.45 

STROMLINIENFORM O.OS 
PKU 0.3 - 

LKU 0.3 - 

HRLBKUGEL, ( 1.4 

HRLBKUGEL,) 0.34 

FRLLSCHIRM O.9 

URLZE 0.85 


0.6 
1.5 


Jach der Eingabe des BASIC-Program- 
nes starten Sie dieses mit GOTO 
9990. Daraufhin wird das Programm 
2 .uf Band abgespeichert und nach 
Beendigung des Vorganges sofort 
gestartet. Manfred Amann 


FREIER FRLL IN LUFT 
I-iLEICHUNGEN : 


S = R/2«?rT*T 
=I = DU/DT 
:>U=R»DT 


=:M 4<f-R 
=^=:F..-M 
•^G^M-i^-G 

-U = OI:U*RF*RHO*U*U) /2 
R= (FG-FU) M 

R= i:m^g- c i;CU*rf *rho*u j /2) ) .‘ M 

C U = U ID E R S T R N D 3 B E I U E R T 
RF=Ö-FLRECHE (OM:i .M=MRSSE JiK.G) 


E IN G R B E U O N R F . M . C U U N D 
ZEITSCHRITT DT 


FREIER FRLL 
*********** 


T (S) 

S (M) 

U(M/S) 

0 

0 

0 

1 

5 

10 

2 

20 

20 

3 

45 

30 

4 

80 

40 

5 

125 

50 

6 

180 

60 

7 

245 

70 

S 

320 

80 

9 

405 

90 

10 

500 

100 

11 

605 

110 

12 

720 

120 

13 

845 

130 


FRLLBESCML.=10 M/S*S 


1 REM BEWEGUNGSGESETZE 

2 REM EUER CHIP SPECIAL 

3 REM VOM M. AMANN 

4 REM 

220 REM «AUSWAHL» 

230 CLEAR 
240 CLS 

250 PRINT "BEWEGUNG”;TAB 0;”{8»-}” 
260 PRINT {4»,}”TASTE DRUECKEN FUER 

..." 

270 PRINT {4»,}"TABELLE U. DIAGRAMM 
;”;TAB 31;”T”,,"3 DIAGRAMME UEB 
EREINANDER:”;TAB 31;”M”;,,”FREI 
ER FALL (G VARIABEL,TAB.):”;TAB 
31;"F”,,"FREIER FALL IN LUFT:” 
;TAB 31;”L«,,”ENDE:”;TAB 31;”E” 
280 IF INKEY$="" THEN GOTO 280 
290 IF INKEY$=”T" THEN GOTO 350 
300 IF INKEY$=”M" THEN GOTO 900 
310 IF INKEY$=”F" THEN GOTO 1490 
320 IF INKEY$="L" THEN GOTO 1770 
330 IF INKEY$="E" THEN GOTO {4»9} 
340 GOTO 280 
350 CLS 

360 PRINT "GLEICHFOERMIGE UND BESCH 
LEUNIGTE”;TAB 0;”{32»»}”;TAB 0; 
"BEWEGUNG (TABELLE UND DIAGRAMM 

)",n{3i««}it 

370 PRINT ,,"FUNKTION Y=F(X)”{4«,}” 
EINGABEN GROESSEN UND EINHEITEN 
”,"[Y]:GR0ESSE (S,V,T,A)=”; 

380 INPUT A$ 

390 PRINT CHR$ 8;” ";A$;” ”;CHR$ 8, 
” EINHEIT(M,M/S,S,M/S»S)=”; 

400 INPUT B$ 

410 PRINT CHR$ 5;B$;CHR$ 133;TAB 0; 


,,”[X]iGROESSE (S,V,T,A)=”; 

420 INPUT C$ 

430 PRINT CHR$ 8;" ”;C$;” ”;CHR$ 8, 
" EINHEIT(M,M/S,S,M/S»S)=”; 

440 INPUT D$ 

450 PRINT CHR$ 5;D$;CHR$ 133;TAB 0; 
,,"EINGABE FUNKTION: ”;A$;”=F(" 
;c$;")”,A$;”=”; 

460 INPUT F$ 

470 PRINT F${4»,}"SCHRITTWEITE (IN 
”;D$;”): 

480 INPUT H 

490 IF H<=0 THEN GOTO 480 
500 PRINT H 
510 GOSUB 2550 

520 PRINT AT 0,0;C$;”(";D$;”;AT 0 
,16;A$;”(";B$;")" 

530 FOR N=0 TO 63 

540 PLOT N,41 

550 NEXT N 

560 REM BERECHNUNG 

570 LET D=-1E38 

580 LET B=H»17 

590 FOR L=0 TO B+H/2STEP H 

600 GOSUB 1410 

610 LET Y=VAL F$ 

620 LET D=(Y AND Y>=D)+(D AND Y<D) 

630 PRINT TAB 0;L;TAB 16;Y 

640 NEXT L 

650 LET B=H»17 

660 GOSUB 2550 

670 REM »DIAGRAMM,SCHRITTWEITE» 

680 LET C=B/63 
690 LET HM=63/B 
700 LET VM=38/D 
710 FOR 1=0 TO 63 


720 PLOT 1,5 

730 IF I>=5 AND I<=43 THEN PLOT 0,1 

740 NEXT I 

750 PRINT AT 0,1 ;D 

760 PRINT AT 1,1;A$;"(";B$;")” 

770 PRINT AT 20,27;B 

780 PRINT AT 18,25;C$;"(”;D$;«)" 

790 FOR L=0 TO BSTEP C 
800 GOSUB 1410 
810 LET Y=VAL F$ 

820 LET X=L»HM 
830 LET Y=Y»VM+5 

840 IF X<0 OR X>63 OR Y<5 OR Y>43 T 
HEN GOTO 870 
850 PLOT X,Y 
860 NEXT L 
870 GOSUB 2550 
880 GOTO 230 

890 REM BEWEGUNGSDIAGRAMME 
900 CLS 

910 PRINT "BEWEGUNGSDIAGRAMME”,”!18 

920 PRINT "ES WERDEN JEWEILS 3 DIAG 
RAMME”,”UEBEREINANDERGEZEICHNET 
."»» » 

930 PRINT "SKALENBESCHRIFTUNG Y-ACH 
SE”,”GROESSE: 

940 INPUT A$ 

950 PRINT A$;TAB 0;"EINHEIT; 

960 INPUT B$ 

970 PRINT B${4»,}”SKALENBESCHRIFTUN 
G X-ACHSE”,"GROESSE: 

980 INPUT C$ 

990 PRINT C$;TAB 0;”EINHEIT; 

1000 INPUT D$ 

1010 PRINT D${4»,}"MAXIMALWERT ";A$ 
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1020 INPUT A 

1030 IF NOT A THEN GOTO 1020 
1040 PRINT A;” ";B$;TAB 0;«MAXIMALW 
ERT 

1050 INPUT B 

1060 IF NOT B THEN GOTO 1050 
1070 PRINT B;" ";D$,,, 

1080 REM SCHRITTWEITE 
1090 LET C=B/63 

1100 PRINT «EINGABE FUNKTION: ”;A$; 

ti=:F(”;c$;”)« 

1110 GOSUB 2550 
1120 LET HM=63/B 
1130 LET VM=36/A 
1140 GOSUB 1320 
1150 FOR N=0 TO 2 

1160 PRINT AT 19+N,0;N+1;")”;A$;«=« 

1170 INPUT F$ 

1180 PRINT F$ 

1190 GOSUB 1230 

1200 NEXT N 

1210 GOSUB 2550 

1220 GOTO 230 

1230 FOR L=0 TO BSTEP C 

1240 GOSUB 1410 

1250 LET Y-VAL F$ 

1260 LET X=L»HM 
1270 LET Y=Y»VM+7 

1280 IF X<0 OR X>63 OR Y<7 OR Y>43 
THEN GOTO 1310 
1290 PLOT X,Y 
1300 NEXT L 
1310 RETURN 
1320 FOR 1=0 TO 63 
1330 PLOT 1,7 

1340 IF I>=7 AND I<=43 THEN PLOT 0, 
I 

1350 NEXT I 

1360 PRINT AT 1,1;A$;"(”;B$;” 

1370 PRINT AT 0,1;A 

1380 PRINT AT 17,25;C$;";D$;" 

1390 PRINT AT 19,27;B 
1400 RETURN 

1410 IF C$=”T” THEN LET T=L 
1420 IF C$="S” THEN LET S=L 
1430 IF C$="V” THEN LET V=L 
1440 IF C$=«A” THEN LET A=L 
1450 RETURN 
1460 REM FREIER FALL 
1470 REM BERECHNET FALLWEG UND FALL 
GESCHW. FUER 0 BIS 14 SEK.(SCH 
RITTWEITE 1 SEK.) 

1480 REM FALLBESCHLEUNIGUNG FREI WA 
EHLBAR 
1490 CLS 

1500 PRINT "FREIER FALL"(4»,} 

1510 PRINT "FALLBESCHLEUNIGUNG ?"," 
(NUR ZAHLENWERT OHNE EINHEIT", 
"EINGEBEN)"{4»,} 

1520 INPUT G 

1530 IF G<=0 THEN GOTO 1520 
1540 PRINT G;" M/S»S"{4»,}"MOMENT B 
ITTE" 

1550 FOR M=1 TO 50 
1560 NEXT M 
1570 CLS 

1580 PRINT AT 0,10;"FREIER FALL";TA 
B 10;"{11»»}" 

1590 PRINT AT 3,0;"T(S)";AT 3»12;"S 
(M)";at 3i24;"V(M/S)" 

1600 FOR N=0 TO 31 
1610 PRINT AT 4,N;"-" 

1620 NEXT N 
1630 LET K=5 
1640 FOR T=0 TO 13 
1650 LET S=G/2«T»T 
1660 LET V=G»T 

1670 PRINT AT K,0;T;AT K,12;S;AT K, 
24;V 

1680 LET K=K+1 
1690 NEXT T 
1700 FOR N=0 TO 31 
1710 PRINT AT 19,N;"~" 


1720 NEXT N 

1730 PRINT AT 20,0;"FALLBESCHL. = " ;G 
;" M/s»S" 

1740 GOSUB 2550 
1750 GOTO 230 

1760 REM FREIER FALL IN LUFT 
1770 CLS 

1780 PRINT "FREIER FALL IN LUFT","{ 

19§»}" 

1790 PRINT ,,"GLEICHUNGEN:";TAB 0;" 
{ 11 »-)" 

1800 PRINT "V=A»T";TAB 0;"S=A/2»T»T 

";tab 0;"a=dv/dt";tab 0;"dv=a» 

DT" 

1810 PRINT ,,"F=M»A";TAB 0;"A=F/M"; 
TAB 0;"FG=M»G";TAB 0;"FW=(CW»A 
F»RH0»V»V)/2";TAB 0;"A=(FG-FW) 
/M";TAB 0;"A=(M»G-((CW»AF»RHO» 
V*V)/2))/M" 

1820 LET RHO=1.25 

1830 PRINT , ,"RH0=DICHTE D. LUFT";" 
(";RHO;" KG/CBM)" 

1840 PRINT , ,"CW=WIDERSTANDSBEIWERT 
","AF=Q-FLAECHE (QM),M=MASSE ( 
KG)" 

1850 FOR N=0 TO 63 
1860 PLOT N,25 
1870 PLOT N,10 
1880 PLOT N,7 
1890 NEXT N 
1900 GOSUB 2550 
1910 CLS 

1920 PRINT "TABELLE CW-WERTE","{16» 
•}" 

1930 PRINT ,,"KREISSCHEIBE","1.1"," 
KUGEL","0.45"»"STROMLINIENFORM 
","0.05","PKW","0.3 - 0-6","LK 
W","0.8 - 1-5","HALBKUGEL,("," 
1.4”,"HALBKUGEL,)","0.34","FAL 
LSCHIRM","0.9","WALZE","0.85" 
1940 FOR N=0 TO 63 
1950 PLOT N, 18 
I960 NEXT N 

1970 PRINT 16»,}"EINGABE VON AF, M, 
CW UND","ZEITSCHRITT DT" 

1980 GOSUB 2550 

1990 PRINT "NUR ZAHLENWERTE EINGEBE 
N","{24»-}",,."EINGABE AF (QM) 

II 

2000 INPUT AF 

2010 IF AF<=0 THEN GOTO 2000 
2020 PRINT AF;TAB 0;"EINGABE M (KG) 

II 

2030 INPUT M 

2040 IF M<=0 THEN GOTO 2030 
2050 PRINT M;TAB 0;"EINGABE CW" 

2060 INPUT CW 

2070 IF CW<=0 THEN GOTO 2060 
2080 PRINT CW;TAB 0;"EINGABE DT (SE 
K)" 

2090 INPUT Z 

2100 IF Z<=0 THEN GOTO 2090 
2110 PRINT Z{4»,}"AUSGABE DER ERGEB 
NISSE IN","DREI SPALTEN; " 

2120 PRINT "LINKS T(S), MITTE S(M), 
"."RECHTS V(M/S)." 

2130 POKE 16418,0 

2140 PRINT AT 22,0;"VOR UND NACH BE 
RECHNUNG:";AT 23,0;”TASTE DRUE 
CKEN (C=COPY)" 

2150 POKE 16418,2 


2160 GOSUB 2580 
2170 LET A=9.81 
2180 LET G=9.81 
2190 LET T=0 
2200 LET S=0 
2210 LET V=0 

2220 LET B=(.5»CW»RHO*AF)/M 
2230 POKE 16418,0 

2240 PRINT AT 23,0;"T(S)";AT 23f9;" 

S(M)";AT 23,20;"V(M/S)" 

2250 POKE 16418,2 
2260 FOR N=1 TO 4 
2270 LET A=G-B»V»V 
2280 LET W=V+A»Z/8 
2290 LET A=G-B»W»W 
2300 LET V=V+A»Z/4 
2310 IF N=1 OR N=3 THEN LET S=S+V»Z 
/2 

2320 NEXT N 
2330 LET T=T+Z 
2340 SCROLL 

2350 PRINT TAB 0;T;TAB 9;INT ((S»10 
0)+0.5)/100;TAB 20;INT ((V»100 
)+0.5)/100 

2360 IF A<=0.05 THEN GOTO 2380 
2370 GOTO 2260 
2380 GOSUB 2580 

2390 PRINT "ERREICHTE ENDGESCHWINDI 
GKEIT:","{^'9»»}" 

2400 PRINT ,,"V-";INT ((V»100)+0.5) 
/100;" M/S." 

2410 LET Q=V»3.6 

2420 PRINT "DAS ENTSPRICHT ";INT (( 
Q» 100)+0.5)/100;" KM/H;«,"NACH 
";T;" SEK. FALLZEIT",«UND ";I 
NT ((S»100)+0-5)/100;" METERN 
FALLSTREJKE." 

2430 PRINT ,,'»VERGLEICH FREIER FALL 
IN VAKUUM;";TAB 0;"{32»-}« 
2440 LET S=G/^^T»T 
2450 LET V=G»r 

2460 PRINT «t=";T;" S;";" S=";INT 
((s»100>0.5)/100;" M;";TAB 0 
;"V=»;INV ((V» 100)+0.5)/100;" 
M/S" 

2470 LET Q=V»i.6 

2480 PRINT ":'»;INT ( (Q»100) + 0.5)/10 
0;" KM/H)." 

2490 GOSUB 2550 

2500 PRINT "NEUE RECHNUNG J/N" 

2510 INPUT X$ 

2520 IF X$="J" THEN GOTO 1910 
2530 IF X$<>"N" THEN GOTO 2510 
2540 GOTO 230 
2550 POKE 16418,0 

2560 PRINT AT 23,0;"BELIEB. TASTE D 
RUECKEN (C-COPY)" 

2570 POKE 16418,2 

2580 IF INKEY$="" THEN GOTO 2580 

2590 IF INKEY$="C" THEN GOSUB 2620 

2600 CLS 

2610 RETURN 

2620 COPY 

2630 FOR N=1 TO 16 
2640 LPRINT 
2650 NEXT N 
2660 RETURN 

9990 SAVE "[B]" 

9991 GOTO 200 
9999 STOP 
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Vekforrediung 


lechner; ZX-81 

’rogrammname; Vektorrechnung 

’rogrammlänge: 3000 Bytes 

Programmiersprache: BASIC 

'ubehör: lökByte-Erweiterung 

[n der Mathematik spielen Vektoren 
jine nicht unerhebliche Rolle. 
)ieses Programm soll Ihnen das 
jösen von Schnittproblemen in der 
Vektorrechnung erleichtern. Die 
oathematische Form, in der die Ein- 
jaben erfolgen müssen, wird im 
Anschluß an die Optionen geschil¬ 
lert. Es werden Ihnen folgende 
Optionen geboten; 

1. Winkel zwischen zwei Vektoren. 

jeben Sie die Vektoren in x,y,z 
Koordinaten ein. 

l. Vektorprodukt (Kreuzprodukt) 


telt. Ebene 1 muß als Ebenen¬ 
gleichung, Ebene 2 in Normalenform 
angegeben werden. 

6.Schnitt Kreis-Gerade 

Der Schnitt von Gerade in Normalen¬ 
form und Kreis ist nur in einer 
Grundebene möglich. 

7. Schnitt Kreis-Kreis 

Gegeben sind zwei Kreise, deren 
Mittelpunktskoordinaten und Radien 
angegeben werden. Es wird eine 
gemeinsame Gerade, die durch die 
Schnittpunkte geht, berechnet und 
mit einem der Kreise geschnitten. 
Die Schnittpunktberechnung der 
Kreise ist nur in einer Grundebene 
möglich. 

8. Abstand Punkt-Ebene 


Jlach der Eingabe der Koordinaten 
zweier Vektoren erhalten Sie einen 
Vektor der senkrecht auf diesen 
Beiden steht. 

3. Windschiefe Geraden 


Der Abstand eines Punktes von einer 
Ebene in Normalenform wird be¬ 
rechnet . 

Mathematische Form der Eingaben; 
a) Vektor 


Dieses Unterprogramm stellt fest, 
ob zwei Geraden sich schneiden oder 
aneinander vorrüberlaufen. Die Ge¬ 
raden haben die Form einer Geraden¬ 
gleichung. Dazu müssen Sie zuerst 
die Koordinaten x,y,z der ersten 
Geraden eingeben, sodann den Rich¬ 
tungsvektor derselben. Ebenso ver¬ 
fahren Sie bei der Eingabe der 
Zweiten. 

4.Schnitt Gerade-Ebene 


r = 



Geradengleichung 



Geben Sie den Ortsvektor und dann 
den Richtungsvektor der Geraden¬ 
gleichung an. Die Ebene muß Norma¬ 
lenform besitzen. Darauf folgt die 
Berechnung der Schnittkoordinaten 
und des Schnittwinkels. 

5.Schnitt Ebene-Ebene 

Es werden die Schnittgerade und der 
Schnittwinkel zweier Ebenen ermit- 


d) Ebene in Normalenform 



e) Ebenengleichung 

/xi\ /x3\ 

r = yi ) + A y2 + JA I Ya 
\Z,/ VzJ \zj 

Andreas Hentschel 
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1 REM VEKTORRECHNUNG 

2 REM EUER CHIP SPECIAL 

3 REM VON ANDREAS HENTSCHEL 

4 REM 

5 PRINT AT 3»5;” [ ]«;AT 4,5;"{4« 

<SPC>}[ ]”;AT 5,5;"E{6»<SPC>}]«;a 
T 6,5;”{4«<SPC>}[ ]";AT 7i5;" [ 

]” 

10 FOR N=8 TO 11 

12 PRINT AT N,6;”[ ] [ ]” 

13 NEXT N 

14 PRINT AT 12,7;"[ ] E ]”;AT 13,8; 
«E ] EKTORRECHNUNG” 

30 FOR N=1 TO 150 
40 NEXT N 
50 CLS 

60 PRINT AT 0,13;"MENUE:”;AT 2,0;"( 
1) WINKEL ZWEIER VEKTOREN" 

70 PRINT "(2) VEKTORPRODUKT” 

80 PRINT "(3) WINDSCHIEFE GERADEN" 
90 PRINT "(4) SCHNITT: GERADE-EBENE 

II 

100 PRINT "(5) SCHNITT: EBENE-EBENE 

II 

110 PRINT "(6) SCHNITT: KREIS-GERAD 
E” 

120 PRINT "(7) SCHNITT: KREIS-KREIS 

II 

130 PRINT "(8) ABSTAND: PUNKT-EBENE 

II 

140 IF INKEY$<>”” THEN GOTO 140 
150 LET I$=INKEY$ 

160 IF 1$=«” THEN GOTO 150 
170 IF I$<”1” OR I$>”8" THEN GOTO 1 
50 

180 GOTO VAL I$»200 
200 CLS 

205 PRINT "WINKEL ZWEIER VEKTOREN" 
210 DIM X(2) 

220 DIM Y(2) 

230 DIM Z(2) 

240 FOR N=1 TO 2 

250 PRINT AT 3+(N-1)•10,0;"KOORDINA 
TEN VEKTOR ";N 
260 PRINT "X="; 

270 INPUT X(N) 

280 PRINT X(N) 

290 PRINT "Y="; 

300 INPUT Y(N) 

310 PRINT Y(N) 

320 PRINT "Z="; 

330 INPUT Z(N) 

340 PRINT Z(N) 

350 NEXT N 

380 PRINT ,,"WINKEL: ";180/ PI »ACS 
ABS ((X(1)«X(2)+Y(1)«Y(2)+Z(1) 
•Z(2))/(SQR (X(1)»X(1)+Y(1)»Y(1 
)+Z(l)«Z(l))*SQR (X(2)»X(2)+Y(2 
)*Y(2)+Z(2)«Z(2{4*)} 

390 CLEAR 
395 GOTO 2000 
400 CLS 

404 PRINT "VEKTORPRODUKT" 

410 DIM X(2) 

415 DIM Y(2) 

420 DIM Z(2) 

430 FOR N=1 TO 2 

440 PRINT AT 3+(N-1)»4,0;"XYZ-KOORD 
INATEN VEKTOR ";N 
450 INPÜT X(N) 

455 PRINT X(N);";"; 

460 INPUT Y(N) 

465 PRINT Y(N);";"; 

470 INPUT Z(N) 

480 PRINT Z(N) 

485 NEXT N 

490 PRINT AT 10,0;"KOORDINATEN DES 
NEUEN VEKTORS:" 

500 PRINT "X=";Y(1)»Z(2)-Z(1)»Y(2) 
510 PRINT "Y=";Z(1)»X(2)-X(1)»Z(2) 
520 PRINT "Z=";X(1)«Y(2)-Y(1)»X(2) 
530 CLEAR 
540 GOTO 2000 
600 CLS 

610 PRINT "WINDSCHIEFE GERADEN" 


615 DIM X(4) 

620 DIM Y(4) 

630 DIM Z(4) 

635 FOR N=1 TO 4 

640 PRINT AT 4»N-1,0;"XYZ-KOORDINAT 
EN "; 

642 IF N=1 OR N=3 THEN PRINT "ORTSV 
EKTOR ";(N+1)/2 

645 IF N=2 OR N=4 THEN PRINT "RICHT 
UNGSVEKTOR" 

650 INPUT X(N) 

652 PRINT x(N);";"; 

654 INPUT Y(N) 

657 PRINT Y(N);";"; 

660 INPUT Z(N) 

665 PRINT Z(N) 

670 NEXT N 

675 LET A=*Y(2)»Z(4)-Z(2)»Y(4) 

680 LET B=Z(2)»X(4)-X(2)»Z(4) 

685 LET C=X(2)«Y(4)-Y(2)»X(4) 

690 LET D=(X(3)-X(1))*A+(Y(3)-Y(1)) 
•B+(Z(3)-Z(1))»C 

695 IF DO0 THEN PRINT ,,"DIE GERAD 
EN SIND WINDSCHIEF." 

697 IF D=0 THEN PRINT ,,"DIE GERADE 
N SCHNEIDEN SICH" 

700 CLEAR 
710 GOTO 2000 
800 CLS 

805 PRINT "SCHNITT: GERADE-EBENE" 
810 DIM X(3) 

815 DIM Y(3) 

820 DIM Z(3) 

825 FOR N=1 TO 3 

830 PRINT AT 3*N,0;"XYZ-KOORDINATEN 

11 • 

835 If'n=1 THEN PRINT "ORTSV. GERAD 
E" 

840 IF N=2 THEN PRINT "RICHTUNGSVEK 
TOR" 

845 IF N=3 THEN PRINT "NORMALENV. E 
BENE" 

850 INPUT X(N) 

855 PRINT X(N) 

860 INPUT Y(N) 

870 PRINT Y(N) 

872 INPUT Z(N) 

875 PRINT Z(N) 

880 NEXT N 

885 PRINT AT 12,0;"C="; 

890 INPUT C 
900 PRINT C 

910 LET D=X(3)»X(2)+Y(3)*Y(2)+Z(3)» 
Z(2) 

920 IF D=0 THEN PRINT ,,"DIE GERADE 
IST PARALLEL ZUR{5»<SPC>}EBENE 

II 

930 IF D=0 THEN GOTO 2000 
940 LET LA=(C-(X(3)»X(1)+YC3)*Y(1)+ 
Z(3)»Z(1)))/D 

945 PRINT , ."KOORDINATEN DES SCHNIT 
TPUNKTES; X=";X(1)+LA»X(2) 

950 PRINT "Y=";Y(1)+LA»Y(2) 

960 PRINT "Z=";Z(1)+LA«Z(2) 

965 PRINT , ."SCHNITTWINKEL: ";180/ 
PI »ASN ABS ((X(2)»X(3)+Y(2)»Y( 
3)+Z(2)»Z(3 ))/(SQR (X(2)»X(2) 

+Y(2)»Y(2)+Z(2)«Z(2))»SQR (X(3) 
•X(3)+Y(3)*Y(3)+Z(3)»Z(3{4«)} 
970 CLEAR 
980 GOTO 2000 
1000 CLS 

1005 PRINT "SCHNITT: EBENE-EBENE" 

1006 DIM X(4) 

1007 DIM Y(4) 

1008 DIM Z(4) 

1010 FOR N=1 TO 4 

1011 PRINT AT 3*N,0;"XYZ-KOORDINATE 
N "; 

1015 IF N=1 THEN PRINT "ORTSV, EBEN 
E 1" 

1020 IF N=2 OR N=3 THEN PRINT "RICH 
TUNGSV. ";N-1 

1025 IF N=4 THEN PRINT "NORMALENV. 
E2" 


1030 INPUT X(N) 

1035 PRINT X(N);";"; 

1040 INPUT Y(N) 

1043 PRINT Y(N);";"; 

1045 INPUT Z(N) 

1048 PRINT Z(N) 

1050 NEXT N 

1055 PRINT AT 15 ,0 *."C=^" ; 

1058 INPUT C 
1060 PRINT C 

1062 LET A=X(4)«X(2)+Y(4)«Y(2)+Z(4) 
•Z(2) 

1065 LET B=X(4)»X(3)+Y(4)»Y(3)+Z(4) 
•Z(3) 

1067 LET C=C-(X(4)«X(1)+Y(4)»Y(1)+Z 
(4)«Z(1)) 

1070 IF AO0 THEN GOTO 1100 

1072 IF BO0 THEN GOTO 1075 

1073 PRINT "DIE EBENEN SIND PARALLE 
L" 

1074 GOTO 2000 

1075 LET MY=C/B 

1078 PRINT "XYZ-KOORDINATEN ORTSV. 
SCHNITTG." 

1079 PRINT X(1)+MY«X(3);”;";Y(1)+MY 
»Y(3);";";z(i)+MY*z(3) 

1080 PRINT "XYZ-KOORDINATEN RICHTUN 
GSVEKTOR" 

1085 PRINT X(2);";";Y(2);";";Z(2) 
1090 GOTO 1150 

1100 PRINT "XYZ-KOORDINATEN ORTSSV. 
SCHNITTG" 

1110 PRINT X(1)+C/A«X(2);";";Y(1)+C 
/A«Y(2);";";Z(1)+C/A»Z(2) 

1120 PRINT "XYZ-KOORDINATEN RICHTUN 
GSVEKTOR" 

1130 PRINT X(3)-B/A»X(2);";";Y(3)-B 
/A«Y(2);";";Z(3)-B/A«Z(2) 

1150 LET X(1)=Y(2)»Z(3)-Z(2)»Y(3) 
1155 LET Y(1)=Z(2)»X(3)-X(2)«Z(3) 
1160 LET Z(1)=X(2)«Y(3)-Y(2)»X(3) 
1165 LET X(2)=X(4) 

1170 LET Y(2)=Y(4) 

1175 LET Z(2)=Z(4) 

1180 GOTO 380 
1200 CLS 

1205 PRINT "SCHNITT KREIS-GERADE" 
1210 DIM X(2) 

1215 DIM Y(2) 

1220 PRINT AT 3,0;"KREISMITTELPÜNKT 
";AT 4,0;"X="; 

1225 INPUT X(1) 

1230 PRINT X(1) 

1232 PRINT "Y="; 

1235 INPUT Y(1) 

1238 PRINT Y(1) 

1239 PRINT "RADIUS="; 

1240 INPUT R 
1243 PRINT R 

1245 PRINT , .«NORMALENVEKTOR DER GE 
RADEN" 

1248 PRINT "X="; 

1250 INPUT X(2) 

1252 PRINT X(2) 

1255 PRINT "Y="; 

1258 INPUT Y(2) 

1260 PRINT Y(2) 

1265 PRINT "C="; 

1268 INPUT C 
1270 PRINT C 

1275 LET A=X(2)«X(2)+Y(2)«Y(2) 

1278 LET LA=(C-X(1)»X(2)-Y(1)«Y(2)) 
/A 

1280 LET MY=R»»2/A-LA»LA 
1285 IF MY>=0 THEN GOTO 1290 
1287 PRINT .."KEIN SCHNITTPUNKT VOR 
HÄNDEN" 

1289 GOTO 2000 

1290 IF MY>0 THEN GOTO 1330 
1295 PRINT ,."BERUEHRPUNKT:" 

1300 PRINT "BC";X(1)+LA»X(2);"/";Y( 
1)+LA«Y(2);")" 

1310 GOTO 2000 

1330 PRINT , ."SCHNITTPUNKTE:" 

1332 LET MY^'SQR MY 


44 


Sinclair ZX 81, Ausgabe 3 





Werkzeug 


1335 PRINT "S1(":X(1)+LA»X(2)-MY»Y( 
2);''/«:Y{ 1>+LA«Y(2) + MY*X(2) J") 

1340 PRINT "S2(";X(1)+LA»X(2)+MY»Y( 
2);"/";Y(1)+LA»Y(2)-HY»X(2);") 

II 

1345 CLEAR 
1350 GOTO 2000 
1400 CLS 

1405 PRINT "SCHNITT! KREIS-KREIS" 
1410 DIM X(2) 

1420 DIM Y(2) 

1425 DIM R(2) 

1430 FOR N=1 TO 2 

1435 PRINT AT 5»N-2,0J"XY-KOORDINAT 
EN MITTELPUNKT KR. ";N 
1440 INPÜT X(N) 

1445 PRINT x(N):";"; 

1450 INPÜT Y(N) 

1455 PRINT Y(N) 

1460 PRINT "RADIUS“"; 

1465 INPUT R(N) 

1470 PRINT R(N) 


1475 NEXT N 

1480 LET C=(R(1)»R(1)-R(2)*R(2)+Y(2 
)«Y(2)+X(2)«X(2)-X(1)«X(1)-Y(1 
)»Y( 1))/2 

1485 LET X(2)“X(2)-X(1) 

1490 LET Y(2)=Y(2)-Y(1) 

1493 LET R=R(1) 

1495 GOTO 1275 
1600 CLS 

1605 PRINT "ABSTAND: PUNKT-EBENE" 
1610 DIM X(2) 

1615 DIM Y(2) 

1620 DIM Z(2) 

1630 FOR N=1 TO 2 

1635 PRINT AT 5»N-2,0;"XYZ-KOORDINA 
TEN "; 

1640 IF N=1 THEN PRINT "DES PUNKTES 

II 

1645 IF N=2 THEN PRINT "NORMALENV. 
EBENE" 

1650 INPUT X(N) 

1655 PRINT X(N);":"; 

1658 INPUT Y(N) 


1660 PRINT Y(N);";"; 

1665 INPUT Z(N) 

1670 PRINT Z(N) 

1675 NEXT N 
1680 PRINT ,,"C="; 

1685 INPUT C 
1690 PRINT C 

1695 PRINT {4»,)«ABSTAND=";ABS ((X( 
1)»X(2)+Y(1)»Y(2)+Z(1)«Z(2)-C) 
/(SQR (X(2)«X(2)+Y(2)»Y(2)+Z(2 
)»Z(2I4*)} 

1700 CLEAR 
2000 POKE 16418,0 

2010 PRINT AT 22,71"<TASTENDRUCK>"; 

AT 23,7;"< Z TO COPY >" 

2020 IF INKEY$<>"" THEN GOTO 2020 
2030 LET I$“INKEY$ 

2040 IF 1$="" THEN GOTO 2030 
2050 IF I$="Z" THEN COPY 
2055 POKE 16418,2 
2060 GOTO 50 

9998 SAVE "VEKTO[R]" 

9999 RUN 


Assembler 


Programmlänge; 2662 Bytes 

Programmiersprache: Assembler 

Zubehör: l6kByte-Erweiterung 

Eine wesentliche Erleichterung bei 
der Arbeit in Maschinensprache bie¬ 
tet ein Assembler. Dieser Assembler 
befindet sich in den oberen 2,6 
KBytes des 16-K Speichers, und ist 
vor überschreiben und NEW geschüt¬ 
zt. Die Mnemonics, die der Assem¬ 
bler versteht, sind die Standard 
Zilog Mnemonics. Sie werden wie ein 
BASIC Programm in REM-Zeilen einge¬ 
geben. Innerhalb einer Basic-Zeile 
können mehrere Assemblerbefehle 
stehen, wenn sie durch ein Semiko¬ 
lon (;) getrennt sind. Bei der 
Beschreibung des Assemblers werden 
folgende Abkürzungen benutzt: 

(Hier möchte ich auch auf Anhang A 
(S.181-187) im Sinclair ZX81 Hand¬ 
buch, das jedem Computer beiliegt, 
verweisen). 

n Steht für eine 8 bit-Zahl, 

also eine Zahl zwischen 0 
und 255. Diese wird norma¬ 
lerweise als Dezimal ange¬ 
nommen, wenn vorher nicht 
das '$'-Zeichen als Kenn¬ 
zeichen für eine hexadezi¬ 
male Zahl steht. 

Die ZX-81 Charakter-Codes 
werden durch ”” gebildet 
("A"). 


Beispiel: 123, $78, -1, ”A« 

dis Steht für eine Distanz bei 

einem relativen Sprung. 
Besteht die Zahl aus nur 
einem Byte, wird sie direkt 
als Distanz eingesetzt. 
Andernfalls wird sie als 
Label angenommen, und die 
Distanz berechnet. 

nn Steht für eine 16 Bit Zahl, 

also eine Zahl zwischen 0 
und 65535. 

Beispiel: -40000, $0f01, 

$ 12-3762 

const Steht für eine 16-Bit Zahl, 
bei der Labels verwendet 
werden dürfen. 

addr Steht für eine 16-Bit Zahl, 

bei der Labels verwendet 
werden dürfen. 

b Bit bei Befehlen zur Bit- 

Manipulation. b=0, 1, 2, 3, 
4, 5, 6, 7. 

p Restart-Vektor beim RST- 

Befehl. p=0, 8, 16, 24, 32, 
40, 48, 56. 

c Symbol für eine Bedingung. 

c=M, P, PE, PO, C, NC, Z, 
NZ. 
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p p^Af Bf Cf Df Elf Hf Ljf xncl* 

rr=BC, DE, mem. 

mem mem=HL, iX, iY. 

ind ind=(HL), (iX+D), (iY+D). 

Eine Konstante oder ein Label stel¬ 
len feste Adressen, bzw. Zahlen 
dar. Sie bestehen aus Buchstaben 
und Ziffern» (Leerzeichen werden 
ignoriert). Das erste Zeichen muß 
ein Buchstabe sein, die Länge ist 
beliebig. Um Verwechslungen zu ver¬ 
meiden, sollten sie nicht mit einem 
Assemblerbefehl, oder einem spezi¬ 
ellen Z80-Symbol wie A, B, C, 
NC,..., übereinstimmen. Konstanten 
und labels werden von diesem Assem¬ 
bler getrennt verarbeitet. Daher 
darf der gleiche Name zweimal, für 
eine Konstante und ein Label ange¬ 
wendet werden. Als Operatoren sind 

'>' und •<' 

erlaubt. 

’>' und '<' stehen hinter einer 
Zahl und bilden das Höherwertige 
bzw. das niederwertige BYTE einer 
Zahl. 

Spezielle Pseudo-Befehle; 

ORG addr 1, addr2 

Das Programm wird ab der 
Adresse addr 1 in den 
Speicher geschrieben. Es 
wird dabei so assembliert, 
als ob es bei der Adresse 
addr 2 stände. Fehlt addr 
2, so setzt der Assembler 
addr 2 = addr 1 

BEGIN Zeigt den Beginn des 

Assemblerprogramms 
an. 

END Zeigt das Ende des Assem¬ 

blerprogramms an. 

DEF Ab der Adresse im Assem¬ 

blerprogramm, an der der 
DEF-Befehl steht, wird die 
auf DEF folgende Liste 
von Ausdrücken, die durch 
Leerzeichen voneinander 
getrennt sind, geschrie¬ 
ben. Zum Beispiel; 

DEF 1 2 -3 $1234 "h" 


= Weist einer Konstanten ei¬ 

nen 16 Bit-Wert zu; 

Konst = -44; Konstl = Konst 
+ 10 

• Steht ein vor einem 

Assemblerbefehl, so wird 
dieser Befehl überlesen und 
als Kommentar aufgefasst. 

Das Setzen oder Weglassen von Leer¬ 
zeichen stören den Assembler meist 
nicht. So ist z.B. SBC HL, SP das 
Gleiche wie SBCHL,SP. Lediglich bei 
den Befehlen, bei denen Verwechs¬ 
lungen auftreten könnten, wie CP, 
RLC, RRC, RL, RR, müssen vor dem 
Argument Leerzeichen gesetzt wer¬ 
den . 

Eine Assemblerprogramm wird folgen¬ 
dermaßen eingegeben; 

Zuerst kommt der ORG-Befehl, mit 
dem die Startadresse des Programmes 
angegeben wird. Darauf folgt die 
Festlegung der Konstanten. Jetzt 
erteilen Sie den BEGIN-Befehl, hin¬ 
ter dem das eigentliche Assembler¬ 
programm steht. Labels werden dabei 
durch einen Doppelpunkt hinter dem 
Label gekennzeichnet. Am Schluß 
steht der END-Befehl. 

ASSEMBLIEREN Sie mit ; 

PRINT USR 30195. 

Befindet sich der Computer im SLOW- 
Modus, so wird während des assem- 
blierens das Programm auf dem Bild¬ 
schirm ausgegeben. Der Assembler 
benötigt zwei Durchläufe um zu 
assemblieren. Ist kein Fehler auf¬ 
getreten, erscheint die Meldung; 
ASSEMBLY COMPLETE, NO ERRORS. Da¬ 
runter wird die Länge des Code- 
Files in Bytes angegeben. Die Feh¬ 
lermeldungen erscheinen wie in BA¬ 
SIC, wobei bedeutet; 

1 Kein Programm oder kein BEGIN 

2 SYTAX-ERROR oder Bereichsüber¬ 
schreitung 

3 Relativer Sprung zu weit 

4 Konstante schon definiert 

5 Label schon gesetzt 

6 Fehler in einer DEF-Anweisung 

Wenn das Programm zufriedenstellend 
läuft, kann das im BASIC-Speicher 
befindliche Quellprogramm einfach 
mit SAVE abgespeichert ewrden. Ist 
das Programm in eine zuvor erzeugte 
REM-Zeile assembliert worden, kann 
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der Rest des BASIC-Speichersi in 
dem das nicht mehr benötigte Quell¬ 
programm steht, folgendermaßen 
gelöscht werden: 

Man stellt mit Hilfe des LIST- 
Befehls den BASIC-Cursor auf die 
Zeile, in der der ORG-Befehl steht. 
Verlängern Sie nun diese Zeile mit 
LET PACK=USR 30113 bis zu der 
Zeile, in der der END-Befehl steht. 
Löscht man jetzt die verlängerte 
Zeile, so wird auch das Quellpro¬ 
gramm gelöscht. Die REM-Zeile, in 
der eventuell das Code-File stand, 
bleibt erhalten. 

Programm-Beispiel 

Um die Anwendung des Assemblers zu 
verdeutlichen, folgt nun ein 
Maschinenprogramm, das den Bild¬ 
schirm mit ”A" füllt; 

10 REM ORG 25000 
20 REM DFILE=$400C 
30 REM BEGIN 

40 REM LD HL, (DFILE); INC HL 
50 REM LD C, 22; «ZEILEN 
60 REM LOOP 1; 

70 REM LD B, 32; «SPALTEN 
80 REM LOOP 2; 

90 REM LD (HL), «A« 

100 REM INC HL 

110 REM DJNZ LOOP 2 

120 REM INC HL 

130 REM DEC C 

140 REM JR NZ, LOOP 1 

150 REM RET 

160 REM END 

Eine kleine Änderung des Programmes 
läßt den Bildschirminhalt sich in¬ 
vertieren: 

90 REM RL (HL); CCF; RR (HL) 
Natürlich könnte das Programm auch 
innerhalb einer einzigen Zeile un¬ 
tergebracht werden, aber dadurch 
würde die Übersichtlichkeit, sowie 
die Korrigierbarkeit sehr leiden. 
Assemblieren Sie nun, wie oben 
beschrieben. Anschließend erscheint 
die Meldung: ASSEMBLY COMPLETE, NO 
ERRORS. Darunter wird die Programm¬ 
länge mit 21 Bytes angegeben. 

Wenn Sie nur die Länge des Program¬ 
mes feststellen möchten, muß mit 
ORG 0 das Programm an die gleiche 
Stelle wie das ROM gelegt werden. 

Es ist ratsam, das Quellprogramm 
mit SAVE zu sichern, bevor Sie das 


Programm ausprobieren. Probehalber 
wurde das Programm an die Adresse 
25000 gelegt. Legen Sie das Pro¬ 
gramm nie direkt hinter den BASIC- 
Speicher, da sich hier die Label¬ 
und Konstantentabelle befindet. Mit 
PRINT USR Adresse 

bringen Sie das Programm zum Lau¬ 
fen, in diesem Fall: PRINT USR 
25000. 

Wenn alles funktioniert, will man 
meist das Programm in eine Form 
bringen, die erlaubt, es abzuspei¬ 
chern. Dazu schreibt man das Pro¬ 
gramm in eine leere REM-Zeile: 
Erzeugen Sie eine REM-Zeile mit so 
vielen Zeichen, wie die Länge des 
Programmes beträgt. In unserem Fall 
eine REM-Zeile mit 21 Zeichen; 

1 REM . 

Da diese Zeile am Anfang steht, hat 
sie die feste Startadresse 16514. 
Der ORG-Befehl muß daher zu ORG 
16514 abgeändert werden. Der Be¬ 
fehl; 

PRINT USR 30195 

schreibt das Programm in die REM- 
Zeile. 

Da das Quellprogramm nicht mehr 
benötigt wird, können Sie es auf 
oben beschriebene Art und Weise 
löschen. Damit steht im BASIC- 
Speicher nur noch die REM-Zeile mit 
dem Maschinenprogramm, die Sie mit 
USR 16514 aufrufen, und mit anderen 
BASIC-Programmen nutzen können. 

Zur Programmeingabe 


Gehen Sie bitte, wie in dem Arti¬ 
kel: "So geben Sie Maschinenpro¬ 

gramme ein" beschrieben, vor. 

Liste der Variablen; 

A=27«99 
B=15 
C=11 

Die restlichen Variablen entfallen. 
Hinzu kommt folgender Befehl im 
Direkt-Modus; 

POKE 16510,0 

F. Beer / W. Labus 
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1 REM 

2692 

Bytes 

reserviert! 


17122 

20 

FA 

09 

44 

4D 

38 

09 

El 

02D6 

17802 

22 

DA 

7F 

2A 

DC 

7F 

23 

22 

0345 

4 SAVE ” 

assembleLr]« 





17130 

Dl 

Fl 

1B 

3D 

20 

DE 

AF 

C9 

0490 

17810 

DC 

7F 

18 

B5 

CF 

05 

11 

AB 

03B8 

5 PRINT 

«ZX81 

ASSEMBLER 

GELADEN.«,, 

17138 

Dl 

Dl 

Dl 

9F 

C9 

CD 

46 

77 

0565 

17818 

7F 

OE 

04 

2A 

EO 

7F 

06 

03 

0223 

»«TASTE DRÜECKEN.« 





17146 

CD 

F9 

77 

A7 

CO 

22 

EO 

7F 

0525 

17826 

D5 

lA 

BE 

23 

13 

20 

05 

10 

0218 

6 IF 

INKEY$ 

stt 11 

THEN 

so TO 6 



17154 

59 

CD 

F9 

77 

A7 

20 

05 

22 

0384 

17834 

F8 

79 

Dl 

C9 

Dl 

13 

13 

13 

0415 

7 PRINT 

USR 

19187 






17162 

EO 

7F 

43 

C9 

AF 

47 

4B 

C9 

0475 

17842 

AF 

OD 

C8 

18 

E6 

2A 

EO 

7F 

040B 











17170 

7E 

D6 

IC 

FE 

10 

DO 

07 

07 

035 c 

17850 

lA 

BE 

23 

13 

20 

OF 

1A 

A7 

01 FE 











17178 

07 

07 

47 

23 

7E 

D6 

IC 

FE 

02E6 

17858 

20 

09 

7E 

FE 

IC 

38 

OD 

FE 

0304 











17186 

10 

DO 

80 

4F 

23 

AF 

C9 

2A 

0374 

17866 

40 

30 

09 

1A 

BE 

23 

13 

28 

01AF 

16514 

00 

00 

BF 

BD 

A4 

9D 

80 

96 

03D3 

17194 

E8 

7F 

22 

FC 

7F 

CD 

IF 

78 

0468 

17874 

03 

10 

E2 

C9 

22 

EO 

7F 

78 

03B7 

16522 

80 

A6 

B8 

B8 

AA 

B2 

A7 

Bl 

054a 

17202 

04 

28 

01 

05 

BO 

C9 

21 

F2 

02BE 

17882 

3D 

BF 

C9 

11 

9B 

7F 

06 

03 

02F9 

16530 

AA 

B7 

00 

00 

00 

00 

00 

00 

0161 

17210 

7F 

36 

00 

CD 

3A 

77 

FE 

15 

0346 

17890 

CD 

9E 

7A 

CO 

3C 

32 

F9 

7F 

048B 

16538 

00 

00 

00 

00 

00 

00 

00 

00 

0000 

17218 

28 

07 

FE 

16 

20 

06 

32 

F2 

028D 

17898 

AF 

C9 

2A 

EO 

7F 

7E 

FE 

10 

048D 

16546 

20 

18 

24 

20 

00 

27 

3E 

00 

00E1 

17226 

7F 

CD 

46 

77 

ED 

5B 

FC 

7F 

04CC 

17906 

CO 

23 

22 

EO 

7F 

CD 

3A 

77 

03E2 

16554 

32 

2A 

32 

34 

39 

37 

34 

33 

0199 

17234 

CD 

A7 

78 

A7 

28 

11 

CD 

3A 

03D3 

17914 

CD 

C4 

7A 

CO 

78 

FE 

03 

28 

046C 

16562 

2E 

28 

76 

00 

02 

35 

OA 

EA 

01F7 

17242 

77 

FE 

OD 

28 

05 

CD 

8F 

77 

0382 

17922 

23 

CD 

3A 

77 

FE 

11 

20 

04 

02D4 

16570 

2A 

07 

40 

22 

E4 

7F 

21 

7D 

0294 

17250 

18 

03 

CD 

DE 

77 

A7 

CO 

3A 

03DE 

17930 

OE 

00 

18 

OF 

FE 

15 

28 

03 

0173 

16578 

40 

OE 

75 

OC 

CD 

5F 

77 

28 

029A 

17258 

F2 

7F 

A7 

28 

07 

21 

00 

00 

0268 

17938 

FE 

16 

CO 

CD 

46 

77 

CD 

10 

043B 

16586 

OF 

CD 

7F 

7A 

FE 

03 

28 

OA 

0308 

17266 

ED 

42 

44 

4D 

CD 

3A 

77 

FE 

043C 

17946 

78 

A7 

CO 

21 

F8 

7F 

CB 

CE 

0510 

16594 

A7 

20 

05 

CD 

4C 

77 

20 

Fl 

036D 

17274 

12 

20 

03 

48 

18 

04 

FE 

13 

01AA 

17954 

21 

F4 

7F 

71 

CD 

3A 

77 

23 

03A6 

16602 

CF 

00 

3E 

EA 

BE 

2B 

20 

FC 

03FC 

17282 

20 

05 

06 

00 

CD 

46 

77 

AF 

0264 

17962 

22 

EO 

7F 

D6 

11 

C9 

11 

7B 

03BD 

16610 

2B 

22 

D8 

7F 

CD 

4C 

77 

28 

•035C 

17290 

C9 

21 

00 

00 

E5 

CD 

IF 

78 

0333 

17970 

7F 

06 

08 

CD 

9E 

7A 

28 

07 

02A1 

16618 

EF 

CD 

7F 

7A 

FE 

01 

20 

F4 

04C8 

17298 

El 

A7 

CO 

E5 

CD 

3A 

77 

El 

058C 

17978 

CD 

D3 

7A 

A7 

CO 

3E 

06 

21 

03E6 

16626 

3E 

75 

3C 

BE 

23 

20 

FC 

ED 

03D9 

17306 

09 

FE 

15 

28 

EF 

FE 

16 

28 

O 36 F 

17986 

FB 

7F 

B6 

77 

AF 

C9 

CD 

17 

0503 

16634 

5B 

D8 

7F 

ED 

52 

2B 

2B 

EB 

0432 

17314 

EB 

44 

4D 

AF 

C9 

2A 

EO 

7F 

047D 

17994 

7B 

CO 

7E 

07 

07 

07 

32 

FB 

02FB 

16642 

73 

23 

72 

2A 

E4 

7F 

22 

07 

02BE 

17322 

7E 

D6 

OB 

CO 

23 

7E 

OE 

00 

02CE 

18002 

7F 

AF 

C9 

11 

8B 

7F 

18 

03 

032D 

16650 

40 

C9 

CD 

2A 

OA 

2A 

OC 

40 

0280 

17330 

FE 

OB 

28 

02 

4F 

23 

7E 

23 

0246 

18010 

11 

93 

7F 

06 

04 

CD 

9E 

7A 

0312 

16658 

01 

B6 

02 

09 

22 

E6 

7F 

2A 

0273 

17338 

22 

EO 

7F 

D6 

OB 

C9 

OE 

7E 

03B7 

18018 

28 

14 

3A 

F9 

7F 

4F 

CD 
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Disassembler 


Rechner: ZX-81 
Programmname; Disassembler 
Programmlänge: 1800 Bytes 
Programmiersprache: BASIC 
Zubehör; 16kByte-Erweiterung 


Ein Disassembler ist ein nützliches 
Werkzeug bei der Arbeit in Maschi¬ 
nensprache, oder bei der Erfor¬ 
schung und Nutzung des ROM. Dieser 
Disassembler befindet sich in den 
oberen 1,7 Kilobyte des Speichers. 
Dort ist er vor überschreiben und 
NEW geschützt. Es können jederzeit 
beliebige andere Programme dazuge¬ 
laden werden. 

Nach dem Laden erscheint die Auf¬ 
forderung: "Press any key". Wenn 

Sie nun eine Taste, außer BREAK, 
drücken, wird der Disassembler au¬ 
tomatisch oberhalb RAMTOP geladen, 
und NEW ausgeführt. 

Das Programm wird mit: 

USR 32032 

aufgerufen, die Startadresse in 
32704/32705 gepoked. 

Wollen Sie z.B. die CHR$-PRINT- 
Routine im ROM, die dort ab der 
hexadezimalen Adresse 07F1 steht, 
untersuchen, geben Sie ein; 

POKE 32704,241 (dez 241 = hex Fl) 


POKE 32705,7 (dez 7 = hex 07) 
RAND USR 32032 

Hinweis zur Programmeingabe 


Gehen Sie bitte, wie in dem Arti¬ 
kel; "So geben Sie Maschinenpro¬ 
gramme ein" beschrieben, vor. 

Liste der Variablen; 

A=27*99 
B=15 
C=11 

Die restlichen Variablen entfallen. 
Hinzu kommt folgender Befehl im 
Direkt-Modus; 

POKE 16510,0 

Wenn Sie den kurzen BASIC-Teil des 
Programmes eingegeben haben, 

starten Sie den Disassembler mit 
RUN. Dann wird dieser gesaved. 

F. Beer/W. Labus 
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Wttrkxeug 


1 REM 1769 Bytes reserviertl 

4 SAVE «DISASSEMBLECR]" 

5 REM FIRMA MEMOTRONIC{16»<SPC>}INH 
ABER: FRANK BEER UND{9*<SPC>}WOLF 
GANG LABÜSl18»<SPC>}POSTFACH 1116 
{l9»<SPC>}7fi)9 ELLWANGEN 

6 PRINT ‘'[DISASSEMBLER] PRESS ANY 
KEY." 

7 IF INKEY$="" THEN GOTO 7 

8 RAND USR 18251 
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Werkzeug 


Super-MonHor 


Rechner: ZX-81 

'rogrammname; Monitor 

’rogrammlänge: 2300 Bytes 

’rogrammiersprache: Assembler 

JubehÖr: 1ökByte-Erweiterung 

3iner der größten Nachteile des ZX- 
-Betriebssystemes ist seine Ge- 
jchwindigkeit. Viele Programmierer 
rersuchen diese Einschränkung durch 
Programmieren in Maschinensprache 
SU umgehen. Da jedoch im ROM kein 
lonitorprogramm, das die Eingabe 
ind das Testen von Maschinenpro- 
jrammen ermöglicht, integriert ist, 
werden Maschinenprogramme schnell 
inübersichtlich. Hinzu kommt, daß 
lie meisten Unterprogramme die das 
lOM bietet, stark verbesserungsbe- 
iürftig sind, wie z.B. die CLS- und 
iie PRINT-Routine. 

Jeue INPUT-Routine 

)iese Mängel beseitigt das folgende 
Maschinenprogramm. Es enthält eine 
vollkommen neue INPUT-Routine, de¬ 
ren Editiersystem vom Sinclair- 
3ystem abweicht. Der Cursor ist 
Immer das invertierte Zeichen, auf 
iem er steht. Mit der Taste 
"shifted 5” wird der Cursor nach 
Links, mit "shifted 8" nach rechts 
bewegt, vorrausgesetzt, daß dort 
bereits ein Zeichen steht, oder daß 
ier Cursor nicht den Anfang oder 
ias Ende des INPUT-Puffers unter- 
bzw. überschreitet. Die Länge des 
[NPUT-Puffers beträgt 262 Zeichen. 
Est der Puffer vollständig vollge¬ 
schrieben und steht der Cursor an 
letzter Stelle, wird dieser als 
Zeichen mit der Codenummer 8 
(Schachbrettmuster) ausgegeben. 

Durch das Drücken einer Taste wird 
grundsätzlich das Zeichen, auf dem 
der Cursor steht, überschrieben und 
der Corsor um eine Stelle nach vorn 
gerückt. Die NEWLINE-Taste (N/L- 
laste) bewirkt die Übernahme aller 
Zeichen die links vom Cursor ..Ste¬ 
den, sowie das vom Cursor Über- 
schriebene. "shifted N/L" verur¬ 
sacht die Rückkehr ins HauptPro¬ 
gramm des Monitors, wobei die Mel¬ 


dung "EXTRA IGNORED" ausgegeben 
wird. Die Ein- und Ausgabe von 
Zahlen erfolgt immer hexadezimal. 

Im Gegensatz zur ursprünglichen 
PRINT-Routine wird der Bildschirm, 
sobald er gefüllt ist, nach oben 
gescrollt. Hat die Ausführung eines 
Befehls die Ausgabe von mehr als 
einer Bildschirmseite zur Folge, 
wartet das Programm bis entweder 
die N/L-Taste zur Fortsetzung, oder 
eine andere Taste zum Verlassen des 
Befehls gedrückt wird. 

14 Routinen 

Jeder Monitorbefehl wird durch das 
Drücken einer einzigen Taste er¬ 
reicht. In der folgenden Aufführung 
der Monitorbefehle ist unter "Syn¬ 
tax" nur angegeben, was von Ihnen 
eingegeben werden muß, jedoch 
nicht, welche Ergänzungen auf dem 
Bildschirm erscheinen. Das Zeichen 
"_" steht für Space. 

Befehle: 

B) asic 
Syntax: B 

Rücksprung in das BASIC-Betriebs- 
system. 

C) hecksum 

Syntax: C Startadresse N/L 
Endadresse N/l 

Berechnet für den eingegebenen 
Speicherbereich Prüfsummen . Zu 
diesem Zweck wird der Speicherbe¬ 
reich in 256 Byte große Blöcke 
unterteilt, und für diese Blöcke 
jeweils eine 16-Bit-Prüfsumme er¬ 
mittelt . 

P)ill 

Syntax: F Startadresse N/L 

Endadresse N/L Wert N/l 
Füllen des Speicherbereichs von 
Startadresse bis Endadresse mit dem 
angegebenen 8-Bit-Wert. 
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G) o 

Syntax: G Startadrease N/L 
Starten eines Programmes. Sämtliche 
CPU-Register werden mit ihren alten 
Werten geladen, bevor ein Sprung 
zur angegebenen Adresse erfolgt. 
Die Rüclcsprungadresse befindet sich 
auf dem Stack. Nach dem Rücksprung 
werden sämtliche Registerinhalte 
gerettet und können ausgegeben und 
verändert werden. 

H) ome 
Syntax: H 

Dieser Befehl löscht den Bild¬ 
schirm. 

I) n 

Syntax: I Peripherieadresse N/L 
Ein Wert wird von einer Periphe¬ 
rieeinheit mit der angegebenen Ad¬ 
resse gelesen. Die Ausgabe des 
Wertes erfolgt sowohl binär als 
auch hexadezimal. 

J) ump relativ Berechnung 

Syntax: J Startadressse N/L 

Zieladdresse N/L 

Durch Angabe der Adresse , an der 
der Jump relativ OP-Code steht, und 
der Zieladresse des Sprunges, wird 
das dazugehörige Sprungbyte be¬ 
rechnet. Darauf fragt das Programm 
mit der Meldung "POKE?", ob der 
Wert gleich hinter den Jump relativ 
OP-Code geschrieben werden soll. 
Wenn Sie dies wünschen, betätigen 
Sie die Taste "Y". Ist ein Jump 
relativ von der angegebenen Start¬ 
adresse nicht möglich, so wird ein 
"OUT OP RANGE ERROR" angezeigt. 

M)ove 

Syntax: M Startadressse N/L 

Endadresse N/L Zieladresse N/L 
Mit diesem Befehl kann ein Spei¬ 
cherbereich kopiert werden. Dabei 
wird der Bereich ab Startadresse 
bis Bndadresse in den Bereich ab 
Zieladresse kopiert, wobei darauf 
zu achten ist, daß sich die beiden 
Bereiche nicht überschneiden, da 
sonst eine korrekte Durchführung 
des Befehls nicht gewährleistet ist. 


0)ut 

Syntax: 0 Peripherieadresse N/L 

Wert N/L 

Ausgabe des 8-Bit-Wertes an eine 
Peripherieeinheit. 

R) ead 

Syntax: R Startadresse N/L 

Programmname N/L 

Mit diesem Befehl können Daten, die 
unter einem bestimmten Namen auf 
Band gespeichert wurden, wieder 
eingelesen werden. Startadresse ist 
die Adresse, in die das erste Byte 
gelesen wird. Durch Drücken der 
BREAK-Taste während der Ausführung 
dieses Befehls, können folgende 

Pehlermeldungen erscheinen: 

1. "BREAK, NO BYTES LOADED", wenn 
noch ein Byte geladen wurde. 

2. "BREAK, LAST BYTE LOADED", sowie 
die Adresse und der Wert des zu¬ 
letzt geladenen Bytes. 

S) ubstitute 

Syntax: S Startadressse N/L 

Bytes, bzw. Texte durch Spaces 
getrennt N/L 

Diese Option erlaubt Ihnen Program¬ 
me, Text und Daten einzugeben. 
Startadresse ist die Adresse, ab 
der die folgenden Bytes geschrieben 
werden sollen. Auf die Startadresse 
folgen die 8 Bit Hexadezimalzahlen, 
die jeweils durch mindestens ein 
Space getrennt eingegeben werden 
müssen. Es kann auch die Eingabe 
eines Textes erfolgen, indem dieser 
einfach in Anführungsstriche ge¬ 
setzt wird. 

T) ext 

Syntax: T Startadresse N/L 

(optional: Endadresse N/L) 
Der Speicherbereich von Startadres¬ 
se bis Endadresse wird in Gruppen 
von je 4 Bytes ausgegeben. Dahinter 
erscheinen die zugehörigen Zeichen. 
Wird die Endadresse weggelassen, 
nimmt diese automatisch den Wert 
PPPP an. 

V)erify 

Syntax: V Startadresse N/L 

Endadresse N/L Zieladresse N/L 
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Der Speicherbereich von Startadres¬ 
se bis Endadresse wird mit dem 
Speicherbereich ab Zieladresse ver¬ 
glichen. Stimmt ein Wert nicht 
überein, so wird die Adresse im 
Startbereich und der dazugehörige 
Wert, sowie die Adresse im Zielbe¬ 
reich und deren Wert ausgegeben. 
Außerdem erfolgt die binäre Ausgabe 
der Exklusiv-Oder-Verknüpfung bei¬ 
der Bytes. Dadurch läßt sich erken¬ 
nen, welche Bits in in beiden Bytes 
überein- oder nicht übereinstimmen. 
Eine Null bedeutet, daß sie über¬ 
einstimmen, eine 1, daß sie nicht 
übereinstimmen. 

W) rite 

Syntax; W Startadresse N/L 
Endadresse N/L Programmname N/L 
Nachdem der Programmname auf den 
Kassettenrecorder ausgegeben wurde, 
wird der Speicherbereich von Start¬ 
adresse bis Endadresse ausgegeben. 
Wird während des Abspeicherns die 
BREAK-Taste gedrückt, erscheint die 
Meldung "BREAK, LAST BYTE SAVED", 
sowie die Adresse und der Wert des 
zuletzt abgespeicherten Bytes. Die 
Geschwindigkeit des Abspeicherns 
läßt sich ändern und so den Fähig¬ 
keiten des Kassettenrecorders an¬ 
passen. Dazu muß lediglich der 
Inhalt der Speicherzelle 4569, in 
der normalerweise BO steht, geän¬ 
dert werden. Je größer der Wert 
ist, desto geringer ist die Ab¬ 
speichergeschwindigkeit. 

X) amine 

Syntax: X Registername N/L 
Wert N/L 

Verändern der Registerinhalte. 
Zuerst wird der Name des Registers 
eingegeben, dessen Wert geändert 
werden soll. Als Registernamen sind 
zulässis: 

A_,B_,C_,D_,E_,H_,L_,P_,I_,R_,A", 

B" ,G",D",E",H",L",P". 

Außerdem die Doppelregister BC, DE, 
HL, SP, IX, lY. Nach der Eingabe 
des Registernamens wird zuerst der 
alte Wert des Registers ausgegeben. 
Darauf kann ein 8-Bit-Wert eingege¬ 
ben werden. Bei den Doppelregistern 
sind natürlich 16-Bit-Zahlen zuläs¬ 
sig. 


Z) 

Syntax: Z 

Es erfolgt die Ausgabe aller Regis¬ 
terinhalte, wobei der Inhalt des P- 
Registers auch binär mit der Bedeu¬ 
tung der jeweiligen Bits ausgegeben 
wird. S: Sign Plag; Z: Zero Plag; 
X: dieses Bit wird nicht verwendet; 
H: Halbüberlauf; P: Paritäts- oder 
Überlaufflag; N: Additions- oder 
Subtraktionsflag; C: Carry Plag. 

Außer den bereits erwähnten Fehler¬ 
meldungen können noch folgende er¬ 
scheinen; 

-"SYNTAX ERROR" bei syntaktisch 
falschen Eingaben. 

-"OVERFLOW ERROR" nach Eingabe ei¬ 
ner Zahl, die größer als PPPP ist. 
-"OUT OP RANGE ERROR" nach Eingabe 
einer Zahl größer als PP, wenn eine 
8-Bit-Zahl erwartet wurde. 

Hinweis zur Programmeingabe 


Zuerst muß eine REM-Zeile erzeugt 
werden, die groß genug ist, das 
Maschinenprogramm und den Input- 
Puffer aufzunehmen. Daher geben Sie 
zuerst eine Zeile 1 REM mit 99 
Zeichen ein. Danach die Zeile mit 
dem EDIT-Befehl editieren und die 
Zeilennummer um eins erhöhen. Dies 
setzen Sie solange fort, bis Sie 27 
REM-Zeilen mit je 99 Zeihen er¬ 
stellt haben. Zur Kontrolle können 
Sie PRINT PEEK 19345 eingeben. 
Erscheint der Wert 118, so haben 
Sie alles richtig gemacht. Nun 
tippen Sie das Hexadezimal- 
Eingabeprogramm in den Rechner und 
im Anschluß daran folgende Befeh¬ 
le, die Sie jeweils mit NEWLINE 
abschließen müßen: 

POKE 16510,0 
POKE 16511 ,15 
POKE 16512,11 

Starten Sie jetzt das Eingabepro¬ 
gramm mit RUN 100. Nach dem Einge¬ 
ben der Adresse können beliebig 
viele zweistellige Bytes eingetippt 
werden. Tritt ein ERROR 5 auf, 
geben Sie GONT ein. Haben Sie die 
Eingabe der Bytes beendet, löschen 
Sie das Eingabeprogramm. Mit den 
folgenden Zeilen wird das Programm 
abgespeichert und nach dem Laden 
sofort gestartet; 
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10 SAVE "MONITOR" 
20 RAND USR 16514 


Und jetzt viel Spaß mit Ihrem neuen 
Monitor! 


Jens Kroth 
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Schachmalt 


Rechner: ZX-81 
Programmname; Schachmatt 
Programmlänge: 3000 Bytes 
Programmiersprache; Assembler 
Zubehör: 1ökByte-Erweiterung 


In vielen Zeitungen und Zeitschrif¬ 
ten findet man sie; Die Kndbelecke. 
Oft stellen Schachprobleme einen 
wesentlichen Teil dieser Rubrick 
dar. Und nicht selten bedarf es 
einiger geistiger Anstrengung bis 
ein solches Problem gelöst ist. 

Doch mit der Hilfe Ihres ZX-81 und 
des Programmes "Schach" ist die 
Zeit des Rätselns vorbei. 

Schnelle Maschinensprache 

Das Programme könnte, wenn es nicht 
so lange dauern würde, Mattprobleme 
bis zu 18 Zügen lösen. Kleinere 
Probleme werden aber dank der Pro¬ 
grammierung in Assembler schnell 
gelöst. Daher wird auch weniger 
Speicherplatz benötigt, als etwa 
bei einem äquivalenten BASIC-Pro- 
gramm Die Länge des Maschinenpro¬ 
grammes beträgt circa 2260 Byte, 
außerdem wird der Speicherplatz ab 
Adresse 23040 belegt, um die Zug¬ 
listen abzuspeichern. 


Hinweis zur Programmeingabe 


Um das Maschinenprogramm auf Kas¬ 
sette aufzeichnen zu können, muß 
der Maschinencode in einer genügend 
großen REM-Zeile untergebracht wer¬ 
den. Eine solche wird im folgenden 
Verfahren erzeugt; 

a)(jeben Sie eine REM-Zeile mit 
Zeilennummer 1 und 94 beliebigen 
Zeichen ein (z.B. 94 * 'x')* Dies 

mit PRINT PEEK 16511 
Das Ergebnis muß 96 


können Sie 
überprüfen, 
laut en. 
b)Editieren 
ändern die 


Sie nun Zeile 1 und 
Zeilennummer zu 2 ab. 
Dann editieren Sie die gerade er¬ 
zeugte Zeile 2 und ändern die Zei- 
lennummmer zu 3 ab. Diesen Vorgang 
wiederholen Sie solange, bis Sie 23 
REM-Zeilen mit den Zeilennummern 
von 1 bis 23 erzeugt haben. Palls 


Sie jetzt alles richtig gemacht 
haben, ergibt sich PEEK 18808 zu 
118. 

Jetzt geben Sie im Direktmodus die 
Kommandos; 

POKE 16512,8 
POKE 16511,248 
POKE 16510,0 
POKE 16514,118 

Dadurch entsteht eine REM-Zeile mit 
Zeilennummer Null und einer Länge 
von 2296 Byte. 

Nach dieser Prozedur wird das 
BASIC-Programm in gewohnter Form 
eingegeben. 

Ist dies geschehen starten Sie das 
Programm mit RUN 600. Dieses Kom¬ 
mando ruft eine Hilfsroutine auf. 
Sie erlaubt Ihnen das Eintippen des 
Hexcodes. Eine weitere Hilfsroutine 
erleichtert die Suche nach even¬ 
tuell falsch eingegeben Hexcodes. 
Sie wird mit RUN 435 aufgerufen. 
Nach dem Pestlegen einer Anfangs¬ 
adresse wird ab dieser Adresse der 
Hexcode aufgelistet. 

Bedienung 

"Schach" wird durch den Befehl RUN 
gestartet. Den weiteren Verlauf 
zeigt ein Beispiel: 

Problem: 

Weiß Tal, Bb6, Kc8. 

Schwarz Ka8, Lb8, Ba7, Bb7. 

Weiß am Zug. 

Programm: 

Wieviele Züge? 

Ihre Eingabe: 

2 NEWLINE 
Programm; 

Pigureneingabe wie folgt: 

PPL (Figur Platz) 

Weiß 

Ihre Eingabe; 

TAI NEWLINE 
BB6 NEWLINE 
KC8 NEWLINE 
NEWLINE 

(Eine leere Eingabe bedeutet, daß 
alle Figuren einer Farbe eingegeben 
sind) 

Programm; 

Schwarz 
Ihre Eingabe: 
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KAS NEWLINE 
LB8 NEWLINE 
BA7 NEWLINE 
BB7 NEWLINE 
NEWLINE 

(Nun sind alle Figuren eingegeben) 
Programm; 

/er ist am Zug ? (l/0) 

(1=Weiß, 0=Schwarz) 

(Es erscheint eine graphische Dar¬ 
stellung des Schachbrettes) 

Programm; 

Richtig ? (J/N) 
ihre Eingabe; 

J NEWLINE 

(Palls die Stellung nicht richtig 
sein sollte, geben Sie N ein. Das 
Programm beginnt darauf noch einmal 
von vorne) 

Da das Programm im PAST-Modus ar¬ 
beitet, wird der Bildschirm während 
der Problemlösung schwarz. In unse¬ 
rem Pall lautet der Lösungszug Ta1- 
a6. Existiert keine Lösung wird 
dies vom Rechner gemeldet. Um das 
Programm von neuem zu starten, 
genügt ein Tastendruck, 
übrigens nimmt das Programm immer 
an, daß eine Rochade möglich ist, 
da es davon ausgeht, daß König und 
Turm noch nicht gezogen wurden. 
Dies können Sie natürlich ändern; 
Deben Sie nach der Abfrage "Wie¬ 
viele Züge ?" STOP ein, und einen 
oder mehrere der folgenden Befehle. 
POKE 16524,1; Keine weiße Rochade 
erlaubt. 

POKE 16525,1; Keine kurze weiße 
Rochade erlaubt. 


POKE 16526,1; Keine lange weiße 
Rochade erlaubt. 

POKE 16527,1; Keine schwarze Ro¬ 
chade. 

POKE 16528,1; Keine kurze schwarze 
Rochade. 

POKE 16529,1; Keine lange schwarze 
Rochade. 

Nun können Sie ganz normal mit GOTO 
30 fortfahren. Der ZX-81 zieht die 
verbotenen Rochaden bei seiner Zug¬ 
generierung nicht in Betracht. 

Bei folgendem Problem findet der 
Rechner zunächst keine Lösung; 
Problem; 

Weiß Kd5, Tg7, Lc2, Ld6, Bf5, 
Bf6,Bh7. 

Schwarz Kh8, Be4, Be5. 

Weiß am Zug. 

Matt in zwei Zügen! 

Bei genauerem Hinsehen stellt man 
fest, daß der letzte schwarze Zug 
e7-e5 gewesen sein muß, also daß 
Weiß diesen Bauern en passant 
schlagen kann. Um das dem Programm 
mitzuteilen, muß man zuerst e5 ( 
der Platz, an den der schwarze 
Bauer zog) umwandeln; 

Sei a=1, b=2, c=3, h=8 (Wert 

der Buchstaben). 

Dann ist X=Wert ( von Buchstabe)+ 
10* (Wert (von Zahl)+1). 

In diesem Pall ist X=5+10*(5+1)=65• 
Jetzt brauchen Sie lediglich noch 
den Befehl POKE 16541,X einzugeben, 
und das Programm erneut mit RUN zu 
starten. Nun wird f5xe6 e.p. mit- 
einbezogen und ist die Lösung. 

Gerhard Scheuermann 
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REM 2499 Bytes reserviert! 

^5 REM COPYRIGHT BY{9«<SPC>}<<A» 
({6«<SPC>}GERHARD SCHEUERMANN{1 
3«<SPC>}BEETH0VENSTR. 20ll(f)«<SPC 
>16676 MANDELBACHTAL - 3 
20 LET L=USR 17120 

25 POKE 16418,2 

26 FOR L=16524 TO 16529 

27 POKE L,0 

28 NEXT L 
30 CLS 

33 PRINT «WIEVIELE ZÜEGE7« 

36 INPUT L 
38 POKE 16531,2»L-1 
40 PRINT AT 5,5;"FIGÜRENEINGABE WIE 
FOLGT:" 

50 PRINT AT 7,10;"FPL" 

60 PRINT AT 10,10;"W E I S S" 

70 LET L»1 
80 INPUT A$ 

85 IF A$="" THEN GOTO 150 
90 LET C=CODE A$(2)-37+(CODE A$(3)- 
27)»10 

100 FOR X=17153 TO 17158 
110 IF CODE A$(1)<>PEEK X THEN NEXT 
X 

120 POKE C+l6640,X-(133+L)«128 
130 IF A$(1)="K" THEN POKE 16769-L, 
C 

140 GOTO 80 

150 IF NOT L THEN GOTO 200 
160 PRINT AT 10,8;"S C H W A R Z" 
170 LET L=0 
180 GOTO 80 

200 PRINT AT 15,5;"WER IST AM ZUG ? 
( 1 / 0 )" 

210 INPUT L 
220 POKE 16515,L 
225 CLS 

230 LET L=USR 16950 

240 PRINT AT 5,24;"RICHTIG?" 

250 PRINT AT 7,25;"(J/N)" 

260 IF INKEY$="" THEN GOTO 260 
270 IF INKEY$="N" THEN GOTO 20 
280 CLS 
290 FAST 

295 LET L=USR 18650 
300 SLOW 

310 IF NOT PEEK 16540 THEN PRINT AT 
11,5;"KEINE LOESUNG GEFUNDEN" 
350 PAUSE 4E4 
430 GOTO 20 

440 INPUT X 

441 FOR B=X TO 5E5STEP 8 

443 PRINT B;" "; 

445 FOR A=B TO B+7 

450 LET C=INT (PEEK A/16) 

460 PRINT CHR$ (C+28);CHR$ (PEEK A- 
C»l6+28);" "; 

470 NEXT A 
475 PRINT 
480 NEXT B 
485 STOP 

490 POKE 16418,2 
495 CLS 

500 FOR A=23040 TO 5E5 

510 SCROLL 

520 PRINT A,PEEK A 

530 NEXT A 

600 PRINT "ANFANG=^" 

605 INPUT A 

607 CLS 

608 PRINT "HEXCODE=" 

610 INPUT A$ 

615 SCROLL 

620 PRINT A,A$( TO 2);" "; 

630 LET C=CODE A$(1)•16+CODE A$(2)- 
476 

640 PRINT C 

650 POKE A,C 

660 LET A=A+1 

665 LET A$==A$(3 TO ) 

670 IF A$="" THEN GOTO 607 

680 GOTO 615 

1000 SAVE "SCHACHMATLTI" 
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18554 

2C 

3A 

94 

40 

77 

2E 

83 

7E 

02E0 

18954 

OA 

95 

FE 

02 

20 

OE 

2E 

60 

025B 

18162 

FE 

14 

28 

A2 

FE 

OA 

C8 

7D 

0429 

18562 

EE 

01 

77 

C9 

36 

42 

00 

00 

02A7 

18962 

36 

00 

2E 

62 

36 

84 

A8 

8F 

02B7 

18170 

C6 

OA 

6F 

36 

00 

C9 

FE 

86 

0 3C2 

18570 

21 

92 

40 

35 

7E 

57 

87 

82 

0306 

18970 

40 

35 

El 

C9 

FE 

FE 

20 

F6 

0531 

18178 

20 

23 

7D 

2E 

81 

46 

77 

90 

02BC 

18578 

C6 

99 

6F 

5E 

7A 

C6 

59 

57 

041C 

18978 

2E 

5E 

36 

00 

2E 

5B 

18 

EC 

024F 

18186 

FE 

02 

20 

OD 

2E 

62 

36 

00 

01F3 

18586 

35 

35 

F5 

ID 

2C 

2C 

7E 

32 

0284 

18986 

FE 

83 

20 

EE 

OA 

FE 

5B 

20 

0412 

18194 

2E 

60 

36 

84 

21 

8F 

40 

34 

026C 

18594 

87 

40 

EB 

3A 

83 

40 

EE 

01 

039E 

18994 

06 

21 

90 

40 

35 

El 

C9 

FE 

03D4 

18202 

C9 

FE 

FE 

20 

F7 

2E 

5B 

36 

049B 

18602 

32 

83 

40 

CD 

40 

47 

Fl 

C9 

0403 

19002 

62 

20 

FA 

21 

91 

40 

18 

F4 

037A 

18210 

00 

2E 

5E 

18 

ED 

FE 

84 

C2 

03D5 

18610 

CD 

AE 

42 

3A 

92 

40 

C6 

59 

03E8 

19010 

42 

3D 

76 

00 

00 

00 

00 

00 

00F5 


Schachuhr 


Rechner; ZX-81 
Prograramnarae; Schachuhr 
Programmlänge; 7100 Byte 
Programmiersprache; BASIC+Assembler 
Zubehör; 16kByte-Erweiterung 

evtl. Drucker 

Stellen Sie sich einmal vor, sie 
möchten gerade Schach spielen, und 
müssen beim Aufstellen der Figuren 
feststellen, daß Ihr Hund einen der 
Könige im Garten vergraben hat. 
Oder Ihre Schachuhr spuckt alle 
ihre Federn und Spiralen aus. Was 
tun ? Ganz einfach. Sie greifen 
ganz entspannt zu Ihrem ZX-81. Denn 
dieser ersetzt Ihnen das Schach¬ 


brett, die Figuren und die Uhr. 
Lediglich das Spielen müssen Sie 
noch selbst in die Hand nehmen. Er 
erspart Ihnen auch nicht die läs¬ 
tige Suche nach einem Spielpartner. 
Aber haben Sie diesen gefunden, 
können Sie loslegen, daß die Köpfe 
rauchen. 

Nach dem Start des Programmes er¬ 
bittet sich der Computer einige 
Informationen von Ihnen. Er möchte 
wissen, ob er Ihre Züge auf dem 
Drucker notieren soll, wie Ihre 
Namen lauten, sowie welche Bedenk¬ 
zeit für die beiden Farben jeweils 
gewünscht wird. Bei der Bedenkzeit 
geben Sie bitte zuerst einstellig 
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Hobby 


die Anzahl der Stunden, sodann, 
durch einen Punkt getrennt, zwei¬ 
stellig die Anzahlder Minuten ein. 
Die Eingabe beenden Sie mit NEW- 
LINE. Nun kann die Partie begonnen 
werden. Hat sich Weiß zu einem Zug 
entschieden, drückt der Spieler 
eine beliebige Taste, außer SHIFT, 
BREAK, NEWLINE. Daraufhin fordert 
Ihn der Computer auf, seinen ge¬ 
wählten Zug einzutippen. Nennen Sie 
bitte jetzt das Ausgangsfeld und 

das Zielfeld des Zuges. Der Zug 

wird vom Computer auf seine Gültig¬ 
keit überprüft. Am oberen Bildrand 
können Sie die jeweilige Bedenk¬ 
zeit, sowie die verbleibende Zeit 
eines jeden Spielers ablesen. 
Möchten Sie rochieren, genügt es, 
den Königszug einzugeben. 

Haben Sie dagegen einen Bauern 

durchgebracht, registriert dies Ihr 
ZX-81, und fragt, in welche Figur 
der Bauer umgewandelt werden soll. 
Schlagen Sie einen Bauern ’en pas¬ 
sant’ müssen Sie vor der Eingabe 

des Zuges ”E” und NEWLINE drücken. 
Bieten Sie Schach, geben Sie nach 


dem Zug noch ein ”+” ein (z.B. 
"A8H8+”). 

Möchten Sie aufgeben, was wir na¬ 
türlich nicht hoffen, drücken Sie 
”A” und NEWLINE. 

Soll der Drucker eine Graphik aus¬ 
geben, erfolgt dies durch ”D”+NEW- 
LINE und der Eingabe des Zuges. 
Setzen Sie Ihren Gegner matt, was 
wir natürlich hoffen, geben Sie 
bitte nach dem Zug noch ”++” ein. 
Der Drucker gibt ein letztes Dia¬ 
gramm aus, und der Rechner beendet 
die Partie. 

Hinweis zur Programmeingabe 

Da das Programm eine kleine Maschi¬ 
nenroutine enthält, gehen Sie bit¬ 
te, wie in dem Artikel; "So geben 
Sie Maschinenprogramme ein " be¬ 
schrieben, vor. 

Liste der Variablen; 

A=l»65 

Befehl; POKE 16510,0 

Die anderen Variablen entfallen. 

R. und J. Schmidt 





UEIS5: 
SCHURRZ 
UEISS 

1 BE2-E4. 

2 E;D2-D3 

3 DD1-H4. 


RNDRERS 

JRN 


SCHURRZ 

BE7-E5 

BD7-D6 

DDÖXH4 




mn 


0 REM ) YCOPY MORND UPRND U9PND RE 
TURN COPY ASN L9JRND GOSUB LKJRND 
UORND YCOPY [(]M[M]RND TAN, UPRND 
[WlASN [:]RND <<<F>>RND <<5>> [U 
]5l9».}6 

1 REM SCHACHUHRl23*<SPC>}{22»-} V 
ON ROLAND U.JOHANNES SCHMIDT 

2 FAST 

3 LET FR=0 

10 DIM C$(8,8,1) 

20 DIM B$(8,8) 

30 LET B$(8)="[TSLDKLST]« 


40 LET B$(7)=”[ {8»B} 

50 LET B$(6)=" [][][][]« 
60 LET B$(5)=”[ ][][][]" 
70 LET B$(4)=" [][][][]” 
80 LET B$(3)="[ ][][][]« 
90 LET B$(2)="{8»B]” 

100 LET B$(1)=«TSLDKLST" 

110 FOR M=1 TO 8 
120 FOR N=1 TO 8 
130 LET C$(N,M)=B$(M,N) 

140 NEXT N 
150 NEXT M 


160 SLOW 

170 PRINT «WELCHER SPIELER NIMMT DI 
E WEI- SSEN STEINE?« 

180 INPUT W$ 

190 CLS 

200 PRINT «WER NIMMT DIE SCHWARZEN? 

II 

210 INPUT S$ 

220 CLS 

230 PRINT «ZUEGE AUSDRUCKEN? (J/N)" 
240 LET A$=INKEY$ 

250 IF A$<>«J« AND A$<>«N« THEN GOT 
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Hobby 


0 240 

260 IF A$="J« THEN LPRINT «WEISS: 
";W$;TAB 0;"SCHWARZ: «;S$;TAB 
2;«WEISS«;TAB 17;"SCHWARZ« 

270 IF A$=«J« THEN LET Y=1 
280 IF A$=«N« THEN LET Y=0 
290 IF Y=1 THEN GOSUB 2180 
300 CLS 

310 PRINT "WIEVIEL BEDENKZEIT HAT « 
,w$,,«( std;"".«";min)" 

320 INPUT Q$ 

330 IF Q$(2)<>".« OR LEN Q$<>4 THEN 
GOTO 320 

340 LET TW=60«((60»VAL Q$(1))+VAL Q 
$(3 TO 4)) 

350 CLS 

360 PRINT "WIEVIEL BEDENKZEIT HAT " 
;S$;" ?" 

370 INPÜT E$ 

380 IF E$(2)<>"." OR LEN E$<>4 THEN 
GOTO 370 

390 LET TS=60»((60»VAL E$(1))+VAL E 
$(3 TO 4)) 

I 400 CLS 

410 PRINT AT 15,7;" IST AM ZUG.« 

I 420 PRINT AT 15,0;" WEISS";AT 0,3; 

I "WEISS«;AT 0,25;"SCHWARZ" 

430 LET SW=1 
440 GOSUB 680 
450 LET TW=TW-A 

460 IF TW<=0 THEN GOTO 730 

470 LET U^TW 

480 GOSUB 810 

490 PRINT AT 2,3;A$ 

500 LET U=A 
f 510 GOSUB 810 

520 PRINT AT 4,3;A$ 

530 IF Y=1 THEN GOSUB 900 
I 540 LET Z=0 

550 PRINT AT 15,0;"SCHWARZ" 

560 LET SW*2 

570 GOSUB 680 

580 LET TS=TS-A 

590 IF TS<=0 THEN GOTO 770 

600 LET Ü=TS 

610 GOSUB 810 

620 PRINT AT 2,24;A$ 

630 LET U=A 

640 GOSUB 810 

650 PRINT AT 4,24;A$ 

660 IF Y=1 THEN GOSUB 900 
670 GOTO 420 
680 POKE 16421,255 
690 POKE 16422,255 
700 IF USR 16514 THEN 
710 LET A-INT (4»(}256«PEEK 16561+P 
EEK 16560)»256+PEEK 16562)/50)+ 
0.5) 

720 RETURN 

730 PRINT AT 20,0;"WEISS VERLIERT W 
EGEN ZETUBER- SCHREITUNG" 

740 PRINT AT 20,0; 

750 IF Y=1 THEN LPRINT TAB 0;"WEISS 
VERLIERT WEGEN ZEITUEBER- SCHR 
EITUNG." 

760 STOP 

770 PRINT AT 20,0;"SCHWARZ VERLIERT 
WEGEN ZEITUE- BERSCHREITUNG." 
780 PRINT AT 20,0; 

790 IF Y=1 THEN LPRINT TAB 0;«SCHWA 
RZ VERLIERT WEGEN ZEITUE- BERS 
CHREITUNG." 

800 STOP 

810 LET S=INT (U/3600) 

820 LET U=U-S*3600 
830 LET M=INT (ü/60) 

840 LET U=U-M»60 

850 LET A$=STR$ S+"."+STR$ M+"."+ST 
R$ U 

860 FOR T=1 TO 7-LEN A$ 

870 LET A$=A$+" " 

880 NEXT T 
890 RETURN 
900 LET D=0 

910 PRINT AT 20,0;"ZÜG EINGEBEN" 


920 LET E=0 
930 INPUT Z$ 

940 IF Z$="D" THEN LET D=1 

950 IF Z$="A" THEN GOTO 2010 

960 GOSUB 1070 

970 IF Z$="E« THEN LET E=1 

980 IF F=1 THEN SLOW 

990 IF F=1 THEN GOTO 930 

1000 PRINT AT 20,0;"{12*<SPC>1" 

1010 IF LEN Z$=6 THEN LET D=1 
1020 IF D=1 THEN GOSUB 1650 
1030 IF BD=1 THEN GOSUB 2060 
1040 SLOW 

1050 IF LEN Z$=6 THEN GOTO 1940 
1060 RETURN 
1070 LET F=0 
1080 FAST 

1090 IF LEN Z$<>4 AND LEN Z$<>5 AND 
LEN Z$<>6 THEN LET F=1 
1100 IF F=1 THEN RETURN 
1110 IF Z$(1 TO 2)=Z$(3 TO 4) THEN 
LET F=1 

1120 IF F=1 THEN RETURN 
1130 IF CODE Z$(1)<38 OR CODE Z$(l) 
>45 OR CODE Z$(2)>36 OR CODE Z 
$(2)<29 OR CODE Z$(3)<38 OR CO 
DE Z$(3)>45 OR CODE Z$(4)<29 0 
R CODE Z$(4)>36 THEN LET F=1 
1140 IF LEN Z$=5 THEN IF Z$(5)<>"+" 
THEN LET F=1 

1150 IF LEN Z$=6 THEN IF Z$(5)<>"+" 
OR Z$(6)<>"+" THEN LET F=1 
1160 IF F=1 THEN RETURN 
1170 LET F$="{10»<SPC>}" 

1180 LET F$(2 TO 3)=Z$(l TO 2) 

1190 LET F$(5 TO 6)=Z$(3 TO 4) 

1200 LET Y$=Z$ 

1210 LET Z$(1)=STR$ (CODE Y$(1)-37) 
1220 LET Z$(3)=STR$ (CODE Y$(3)-37) 
1230 LET M=VAL Z$(l) 

1240 LET N=VAL Z$(2) 

1250 LET 0=VAL Z$(3) 

1260 LET P=VAL Z$(4) 

1270 IF C$(M,N)=" « OR C$(M,N)="[ ] 
" THEN LET F*1 
1280 IF F=1 THEN RETURN 
1290 IF SW=1 THEN LET FR==FR+1 
1300 LET F$(4)="-" 

1310 IF C$(0,P)<>" " AND C$(0,P)<>" 
[ ]" THEN LET F$(4)="X" 

1320 IF SW=1 THEN LET F$(1)=C$(M,N) 
1330 IF SW==2 AND CODE C$(M,N)<167 T 
HEN LET F^l 

1335 IF SW=1 AND CODE C$(M,N)>63 TH 
EN LET F=1 

1340 IF F=1 THEN RETURN 
1350 LET C$(0,P)=C$(M,N) 

1360 IF SW=2 THEN LET F$(l)=CHR$ (C 
ODE C$(M,N)-128) 

1370 LET C$(M,N)=" " 

1380 IF (M+N)/2=INT ((M+N)/2) THEN 
LET C$(M,N)="[ ]" 

1390 IF E=1 THEN GOSUB 1750 
1400 IF F$(1)="K« AND F$(2)="E« AND 
(F$(5)="C« OR F$(5)="G") THEN 
GOSUB 1800 

1410 IF P<>8 AND P01 THEN GOTO 155 

0 

1420 IF F$(1)<>"B" THEN GOTO 1550 
1430 PRINT AT 20,0;"WELCHE FIGUR SO 
LL DER BAUER WER-DEN?" 

1440 SLOW 

1450 LET E$=INKEY$ 

1460 IF E$<>"D" AND E$<>«L« AND E$< 
>«S" AND E$<>"T" THEN GOTO 145 
0 

1470 FAST 

1480 PRINT AT 20,0;"{36»<SPC>}" 

1490 PRINT AT 20,0; 

1500 LET F$(7)="=" 

1510 LET F$(8)=E$ 

1520 IF SW=2 THEN LET E$=CHR$ (CODE 
E$+128) 

1530 LET C$(0,P)=E$ 

1540 LET SW=SW+0.5 


1550 IF LEN Z$=4 THEN GOTO 1610 
1560 IF LEN Z$>=5 THEN LET F$(9)="+ 

II 

157Ä IF LEN Z$=6 THEN LET F$(1Ä)="+ 

II 

1580 IF SW=INT SW THEN LET F$(7 TO 
8)=F$(9 TO 10) 

1590 IF SW=INT SW THEN LET F$(9 TO 

) = « « 

1600 LET SW=INT SW 

1610 LET SW=INT SW 

1620 IF SW=1 THEN LPRINT FR;TAB 4;F 

$; 

1630 IF SW=2 THEN LPRINT TAB 19;F$ 

1640 RETURN 

1650 FOR M=1 TO 8 

1660 FOR N=1 TO 8 

1670 LET B$(M,N)=C$(N,H) 

1680 NEXT N 
1690 NEXT M 

1700 FOR N=8 TO 1STEP -1 

1710 LPRINT TAB 11;N;" ";B$(N) 

1720 NEXT N 

1730 LPRINT ,,TAB 13;"ABCDEFGH" 

1740 RETURN 

1750 LET C$(0,N)=" ” 

1760 IF (0+N)/2=INT ((0+N)/2) THEN 
LET C$(0,N)="[ ]" 

1770 LET F$(7 TO 8)="EP" 

1780 LET SW=SW+0.5 
1790 RETURN 
1800 LET N=8 
1810 LET P=8 

1820 IF SW=1 THEN LET N=1 
1830 IF SW=1 THEN LET P=1 
1840 LET M=1 
1850 LET 0=4 

1860 IF F$(5)="G" THEN LET H=8 
1870 IF F$(5)="G" THEN LET 0=6 
1880 LET C$(0,P)=C$(M,N) 

1890 LET F$="0-0{7*<SPC>}'' 

1900 IF M=1 THEN LET F$(4 TO 5)="-0 

II 

1910 LET C$(M,N)=" " 

1920 IF (M+N)/2=INT ((M+N)/2) THEN 
LET C$(M,N)="[ ]" 

1930 RETURN 
1940 LPRINT " " 

1950 IF SW=1 THEN LPRINT "ICH GRATU 
LIERE ";W$;" ." 

I960 IF SW=2 THEN LPRINT "ICH GRATU 
LIERE ";S$;" 

1970 CLS 

1980 PRINT AT 15,0;"HERZLICHEN GLUE 
CKWUNSCH." 

1990 SLOW 
2000 STOP 

2010 IF SW=1 THEN PRINT AT 20,0;W$; 

" GIBT AUF. " 

2020 IF Y=1 AND SW=1 THEN LPRINT TA 
B 0;W$;" GIBT AUF." 

2030 IF SW=2 THEN PRINT AT 20,0;S$; 
" GIBT AUF. " 

2040 IF Y=1 AND SW=2 THEN LPRINT TA 
B 0;S$;" GIBT AUF." 

2050 STOP 
2060 FOR M=1 TO 8 
2070 FOR N=1 TO 8 
2080 LET B$(M,N)=C$(N,M) 

2090 NEXT N 

2100 NEXT M 

2110 LET BADR=8 

2120 FOR N=8 TO ISTEP -1 

2130 PRINT AT BADR,20;N;" ";B$(N) 

2140 LET BADR=BADR+1 

2150 NEXT N 

2160 PRINT AT 17,22;«ABCDEFGH" 

2170 RETURN 

2180 PRINT "BILDSCHIRMDIAGRAMM? (J/ 
N)" 

2190 LET A$=INKEY$ 

2200 IF A$<>«J" AND A$<>"N« THEN GO 
TO 2190 

2210 IF A$="J" THEN LET BD=1 
2220 IF A$="N" THEN LET BD=0 
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Geschicklichkeit 


2230 

RETURN 








16530 

FF 

CA 

A5 

40 

ED 

53 

BO 

40 

04DE 

16562 

BA 21 

IB 

IB 

IB 

IB 

IB 

IB 

017D 











16538 

3A 

34 

40 

47 

3E 

FF 

90 

32 

02F4 

16570 

1B 1B 

1B 

22 

76 

00 

00 

00 

00E9 

1651H 

11 

00 

00 

3E 

FF 

32 

34 

40 

01F4 

16546 

B2 

40 

C9 

3A 

35 

40 

BC 

CA 

03F0 










16522 

3A 

35 

40 

67 

3A 

25 

40 

FE 

02B3 

16554 

8E 

40 

13 

C3 

8A 

40 

05 

00 

0273 











Nummem-Sammler 


Rechner: ZX-81 
Programmname; Bomber 
Programmlänge; 1000 Bytes 
Programmiersprache; Assembler 
Zubehör: 1 ökByte-Erweiterung 

Sie stehen mitten in einem Feld 
voller Zahlen. Packen Sie soviele 
Zahlen wie möglich in Ihren Korb, 
und bringen Sie sie in Ihr sicheres 
Zuhause rechts unten. Allerdings 
wird das Feld von einem Aufpasser, 
dem sogenannten "Bomber", bewacht. 
Der "Bomber" schießt wild um sich 
in das Feld. Wenn Sie von Ihm ge¬ 
troffen werden, müßen Sie mit dem 
Sammeln wieder von vorne anfangen. 


Übrigens können Sie nur dann sam¬ 
meln, wenn der Wächter schießt. 

Hinweis zur Programmeingabe 

Gehen Sie bitte wie in dem Artikel; 
"So geben Sie Maschinenprogramme 
ein" beschrieben vor. 

Liste der Variablen; 

A=4*177 
B=216 
C=2 
D=118 

E=16514 bis 17240 

S *v SL ^ "t • 

RANd'uSR 16567 

Helmut Dursch 


1 REM 

727 Byte 

3 reserviert 

! 


16714 

1A 

11 

14 

00 

18 

08 

1 1 

EC 

015C 

2 SAVE " 

B[0] 

1 " 







16722 

FF 

18 

03 

1 1 

FF 

FF 

3E 

08 

036F 

3 SLOW 









16730 

77 

19 

CD 

9B 

43 

30 

04 

BE 

032D 











16738 

20 

09 

E3 

00 

AF 

47 

4F 

3D 

028E 



38 



hl 

31 

2A 


?§ 

818 ^ 

16746 

16754 

F5 

FE 

18 

97 

ID 

28 

7E 

FA 

FE 

FE 

76 

BD 

28 

06 

F4 

02 

0438 

047A 

16530 

OE 

00 

00 

IC 

76 

37 

2A 

30 

0131 

16762 

20 

06 

36 

17 

3E 

2B 

06 

28 

010A 

16538 

34 

37 

29 

OE 

00 

00 

00 

IC 

OOBE 

16770 

E3 

F5 

D6 

IC 

4F 

CD 

CA 

43 

04F3 

16546 

97 

A7 

B4 

B2 

A7 

AA 

B7 

97 

0543 

16778 

1 1 

63 

40 

CD 

00 

40 

Fl 

El 

0393 

16554 

76 

2A 

58 

40 

09 

CB 

7C 

C2 

034A 

16786 

CA 

50 

42 

36 

17 

D9 

15 

7A 

0311 

16562 

EO 

43 

C3 

E3 

43 

21 

CO 

42 

042F 

16794 

E6 

01 

7A 

D9 

C2 

58 

42 

E5 

047B 

16570 

22 

OC 

40 

3E 

FD 

DB 

FE 

1F 

03A1 

16802 

21 

56 

41 

E6 

1F 

20 

2E 

ED 

02F8 

16578 

38 

F9 

11 

5C 

40 

21 

82 

40 

02C1 

16810 

5F 

E6 

07 

3C 

D9 

6F 

D9 

4F 

03F8 

16586 

01 

29 

00 

ED 

BO 

OE 

OC 

58 

0239 

16818 

06 

28 

E5 

OD 

20 

02 

OE 

08 

0158 

16594 

ED 

BO 

31 

5C 

40 

AF 

08 

ED 

040E 

16826 

79 

CD 

7E 

43 

19 

36 

80 

00 

02D6 

16602 

73 

OC 

40 

C5 

11 

FD 

43 

21 

02F6 

16834 

E3 

E3 

3C 

20 

F8 

36 

20 

El 

0451 

16610 

BF 

42 

01 

D4 

01 

ED 

B8 

EB 

0467 

16842 

10 

E8 

EB 

19 

36 

08 

El 

CB 

0 3E6 

16618 

23 

E9 

11 

76 

15 

2B 

73 

06 

024C 

16850 

46 

E5 

28 

2B 

EB 

D9 

7D 

D9 

0498 

16626 

13 

2B 

73 

2B 

36 

08 

10 

FB 

0225 

16858 

CD 

7E 

43 

19 

01 

D9 

BD 

CD 

040B 

16634 

15 

20 

F4 

48 

C5 

D9 

01 

EF 

03FF 

16866 

9E 

43 

01 

FB 

FF 

D2 

A3 

42 

0493 

16642 

02 

16 

01 

D9 

21 

56 

41 

36 

01E0 

16874 

3E 

08 

BE 

20 

07 

36 

15 

10 

0186 

16650 

97 

06 

64 

CD 

AC 

43 

10 

FB 

03C8 

16882 

FC 

77 

18 

E7 

7E 

FE 

76 

28 

048C 

16658 

21 

27 

42 

36 

BD 

21 

85 

40 

0263 

16890 

EC 

FE 

17 

36 

08 

20 

08 

06 

026D 

16666 

E5 

D9 

OB 

C5 

D9 

El 

CB 

7C 

058F 

16898 

28 

CD 

CA 

43 

01 

00 

80 

F5 

0378 

16674 

C2 

4B 

43 

11 

6D 

40 

CD 

E6 

03C1 

16906 

C3 

C8 

42 

El 

CI 

El 

A7 

ED 

05E4 

16682 

43 

El 

E5 

OE 

OA 

10 

FE 

OD 

033C 

16914 

42 

30 

03 

21 

00 

00 

09 

E5 

0184 

16690 

20 

FB 

11 

01 

00 

3E 

F7 

DB 

033D 

16922 

IE 

78 

CD 

E6 

43 

OE 

09 

IE 

02C1 
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High Speed Radng 


Rechner; ZX-81 
Programmname: Street Racer 
Programmlänge: 6500 Bytes 
Programmiersprache; Assembler 
Zubehör; 16kByte-Erweiterung 


Die meisten Kriminalfilme kommen 
nicht ohne die obligatorischen Ver¬ 
folgungsjagden aus; Die Guten fah¬ 
ren hinter den Bösen her - oder 
auch umgekehrt - mit quietschenden 
Reifen und dabei munter aus allen 
Rohren schießend. In diesem Spiel 
schlüpfen Sie in die Rolle des 
Verfolgers, der mit seinem Auto 
durch eine mit Hindernissen über¬ 
säht e Straße rast. Da Sie aber ein 
friedliebender Verfolger sind, ist 
Ihr Opfer nicht ein anderer Wagen, 
sondern eine sich ständig verän¬ 
dernde Zielscheibe. Während der 
Fahrt erhöht sich kontinuierlich 
Ihre Fahrgeschwindigkeit, so daß es 
immer schwieriger wird gleichzeitig 
zu lenken und zu zielen. Natürlich 
sollten Sie eine Kollision mit den 
Hindernissen vermeiden. Wem bekommt 
das schon? 

Wenn Sie allerdings ein "B" ab¬ 
geschossen haben, was nichts an¬ 
deres als Bonus bedeutet, können 
Sie sich einen Zusammenprall mit 


einem Hinderniß erlauben. Mehr sei 
zu den zu erreichenden Punkten 
nicht gesagt, außer; Es kann pas¬ 
sieren , daß Sie den Rückwärtsgang 
einlegen. Sie sehen, in der Ziel¬ 
scheibe sind einige Überraschungen 
verborgen. Und jetzt ; Auf in den 
Kampf! 

Zur Programmeingabe 


Gehen Sie bitte, wie in dem Arti¬ 
kel; "So geben Sie Maschinenpro¬ 
gramme ein" beschrieben, vor. 

Liste der Variablen; 

A=37*191 
B=117 
0=28 
D=118 

Hinzu kommen folgende Befehle im 
Direktmodus; 

POKE 16509,0 
POKE 16510,0 
POKE 16515,118 
Start; RAND USR 21300 

Helmut Dursch 
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OC 
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01 
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01 

09 

0246 
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EB 

El 

E5 

03FE 

22034 

36 

15 
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40 

A7 

0227 
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OC 

02E9 

22042 

ED 

52 
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04 

19 

EB 

18 
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037F 

00 

19 

EB 

CI 

025A 

22050 

D5 
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OC 

40 

01 

CF 

01 

09 
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01 

20 

00 

ED 

046E 

22058 

36 

15 

Dl 

D5 
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99 

40 

A7 

039B 

00 

19 

EB 

3D 

0325 

22066 

ED 

52 

20 

09 

2A 

OC 
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01 
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IE 

IE 
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DF 
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22074 
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09 

36 

15 
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92 
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FD 
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40 

35 

03AE 

22098 
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09 

36 

15 
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28 

024C 
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00 

00 

00 

0259 

22106 

11 

2A 

9D 

40 

A7 

ED 

52 

20 

031E 

CD 

F9 

42 

CD 

04A4 

22114 

09 

2A 

OC 

40 

01 

FO 

01 

09 

017A 

41 

OE 

96 

10 

0271 

22122 

36 

15 

00 
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03 

OE 

00 

10 

OOAA 

06 

07 

21 

00 

0253 

22130 

FE 

OD 

20 

FB 

3D 

20 

F6 

3A 

03B3 

3E 

DF 

DB 

FE 

0308 

22138 

94 

40 

D6 

26 

20 

05 

2A 

84 

02A3 

30 

F6 

18 

EE 

0299 

22146 

40 

18 

06 

3D 

20 

05 

2A 

86 

0170 

OE 

C8 

10 

FE 

031A 

22154 

40 

18 

06 

3D 

20 

05 

2A 

88 
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OA 

21 

01 

00 

015A 

22162 

40 

18 

06 
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20 

05 

2A 

8A 

0174 

DB 

FE 

IF 

30 

03F6 

22170 

40 

18 

06 

3D 

20 

05 

2A 

8C 

0176 

19 

30 

F3 

18 

02E2 

22178 

40 

18 

03 

2A 

8E 

40 

Dl 

A7 

02CB 

CD 

5A 

41 

CD 

0529 

22186 

ED 

52 

30 

7E 

00 

00 

00 

00 

01 ED 

10 

FE 

OD 

20 

023E 

22194 

00 

00 

EB 

3A 

94 

40 

D6 

26 

02F5 

00 

00 

11 

01 

013D 

22202 

20 

05 

22 

84 

40 

18 

06 

3D 

0166 

FE 

IF 

30 

08 

034D 

22210 

20 

05 

22 

86 

40 

18 

06 

3D 

0168 

30 

F3 

18 

EB 

03C5 

22218 

20 

05 

22 

88 

40 

18 

06 

3D 

016A 

00 

00 

CD 

F9 

01C6 

22226 

20 

05 

22 

8A 

40 

18 

06 

3D 

016C 

CD 

50 

46 

OE 

0302 

22234 

20 

05 

22 

8C 

40 

18 

03 

22 

0150 

20 

FB 

00 

00 

02CC 

22242 

8E 

40 

21 

39 

34 

22 

9F 

40 

025D 

00 

21 

94 

40 

00F5 

22250 

21 

31 

31 

22 

AI 

40 

CD 

62 

02B5 

40 

36 

01 

06 

018C 

22258 

43 

CD 

71 

43 

01 

97 

80 

C5 

03A1 

E5 

C5 

CD 

74 

0312 

22266 

CD 

B7 

43 

IE 

28 

2A 

OC 

40 

0283 

3E 

FD 

DB 

FE 

03CF 

22274 

OE 

18 

06 

20 

23 

7E 

CB 

47 

OlFF 

30 

31 

3E 

DF 

0202 

22282 

20 

06 

07 

07 

07 

07 

18 

03 

005D 

El 

30 

08 

11 

03E3 

22290 

17 

3F 

IF 

77 

10 

EE 

23 

OD 

021A 

DF 

18 

DA 

18 

0233 

22298 

20 

E8 

ID 

20 

£0 

OE 

64 

10 
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09 

34 

7E 

FE 

02BB 
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FE 

OD 

20 

FB 

CD 

8F 

48 

CD 
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ID 

77 

21 

92 

01C8 
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30 

48 

CD 

03 
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64 

10 

FE 

0329 

22322 

OC 

40 

11 

99 
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19 

EB 

01 
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El 

18 

B8 

01 

039B 

22330 

84 

40 

F5 

OA 

6F 

03 

OA 

67 

02A6 

7E 

FE 

2C 

20 

0274 

22338 

03 

C5 

CD 

41 

48 

CI 

Fl 

13 

03E3 

21 

94 

40 

77 

024A 

22346 

13 

13 

13 

13 

13 

3D 

20 

EA 

01A6 

OD 

20 

FB 

18 

02C0 

22354 

EB 

11 

04 

00 

19 

EB 

3E 

03 

0245 

00 

00 

00 

00 

00E2 

22362 

F5 

OA 

6F 

03 

OA 

67 

03 

C5 

02AA 

99 

40 

22 

9B 

01D9 

22370 

CD 

41 

48 

CI 

Fl 

13 

13 

13 

0341 

AF 

32 

93 

40 

02F3 

22378 

13 

13 

13 

3D 

20 

EA 

CD 

3C 

0289 

21 

95 

40 

FE 

0367 

22386 

46 

00 

00 

00 

00 

lE 

14 

CD 

0145 

00 

23 

36 

14 

010C 

22394 

74 

45 

3E 

DF 

DB 

FE 

IF 

30 

03FE 

38 

07 

36 

04 

01C0 

22402 

08 

10 
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OD 

20 

Fl 

ID 

18 

025F 

05 

36 

08 

23 

00E5 

22410 

EE 
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52 

53 

31 

31 

31 

31 

031A 

00 

00 

00 

00 

003F 

22418 

00 
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21 

00 

00 

22 

10 

40 

0093 

CD 

96 

4B 

00 

OIAE 

22426 

C9 

00 

00 

00 

00 

00 

00 

00 

00C9 

00 

00 

00 

00 

0000 

22434 

00 

00 

00 

31 

31 

31 

76 

00 

0109 

00 

00 

00 

00 

0000 

22442 

02 

7C 

00 

EA 

35 

35 

35 

35 

023C 

00 

00 

00 

CD 

OOCD 

22450 

C7 

35 

35 

35 

35 

35 

35 

35 

023A 

00 

10 

FE 

OD 

023C 

22458 

35 

35 

35 

35 

35 

35 

35 

35 

01A8 

40 

34 

7E 

2B 

02EC 

22466 

35 

35 

35 

35 

35 

35 

35 

35 

01A8 

85 

00 

21 

2C 

01ED 

22474 

35 

35 

35 

35 

35 

35 

35 

35 

01A8 

21 

32 

2A 

22 

01C6 

22482 

35 

35 

35 

35 

35 

35 

35 

35 

01A8 

43 

11 

8D 

01 

0304 

22490 

35 

35 

35 

35 

35 

35 

35 

35 

01A8 

9F 

40 

21 

2A 

01DC 

22498 

35 

35 

76 

80 

80 

80 

80 

80 

0360 

CD 

74 

43 

01 

02BF 

22506 

80 

80 

80 

80 

80 

80 

80 

80 

0400 

B7 

43 

00 

CD 

0470 

22514 

80 

80 

80 

80 

80 

80 

80 

80 

0400 

42 

CD 

C2 

47 

04E0 

22522 

80 

80 

80 

80 

80 

80 

80 

80 

0400 

OC 

40 

01 

86 

020B 

22530 

80 

80 

80 

76 

80 

87 

83 

83 

0403 

3C 

46 

2A 

OC 

0206 

22538 

83 

81 

83 

83 

87 

83 

81 

87 

041C 

09 

EB 

2A 

99 

02B8 

22546 

83 

83 

04 

05 

83 

83 

83 

83 

031B 

3A 

93 

40 

FE 

03A1 

22554 

05 

83 

83 

83 

83 

82 

83 

04 

031A 

01 

ID 

00 

09 

014C 

22562 

83 

83 

80 

80 

76 

80 

02 

03 

0301 

CD 

41 

48 

3A 

0380 

22570 

03 

03 

84 

80 

80 

85 

80 

80 

030F 

28 

OC 

EB 

01 

02F3 

22578 

00 

87 

83 

83 

05 

03 

03 

03 

019B 

2A 

9D 

40 

CD 

02E5 

22586 

03 

05 

03 

03 

03 

03 

80 

80 

0114 

40 

21 

93 

40 

0289 

22594 

05 

80 

80 

80 

80 

76 

80 

03 

02FE 


F8 

00 

28 

78 

81 

OE 

74 

00 

22 

40 

00 

21 

3E 

01 

00 

3E 

21 

D5 

42 

CI 

30 

03 

AF 

9F 

42 

5A 

FB 

00 

19 

4B 

06 

DF 

45 

42 

96 

21 

DB 

19 

00 

46 

OD 

00 

92 

00 

40 

IF 

CI 

30 

01 

3E 

77 

CI 

34 

77 

FE 

00 

22 

40 

7E 

36 

28 

18 

00 

00 

00 

00 

00 

OE 

93 

11 

40 

74 

22 

40 

CD 

F9 

2A 

CD 

01 

48 

EB 

40 

02 

EB 

92 
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Geschicklichkeit 


22602 

03 

03 

03 

85 

80 

80 

85 

80 

0293 

23002 

08 

08 

08 

08 

08 

08 

08 

08 

0040 

23402 

08 

08 

08 

08 

08 

08 

08 

B8 

OOFO 

22610 

80 

85 

82 

06 

84 

05 

03 

03 

021C 

23010 

08 

08 

08 

08 

08 

08 

08 

08 

0040 

23410 

B5 

AE 

AA 

Bl 

a 6 

B3 

Bl 

AA 

0572 

22618 

03 

03 

05 

03 

03 

03 

03 

80 

0097 

23018 

08 

08 

08 

08 

08 

08 

08 

08 

0040 

23418 

AE 

B9 

BA 

B3 

AC 

08 

08 

08 

0398 

22626 

80 

05 

80 

80 

80 

80 

76 

80 

037B 

23026 

08 

08 

76 

08 

08 

08 

08 

08 

OOAE 

23426 

08 

08 

08 

08 

08 

08 

08 

38 

0070 

22634 

80 

80 

80 

80 

80 

80 

80 

80 

0400 

23034 

08 

08 

08 

08 

08 

08 

08 

08 

0040 

23434 

39 

2A 

3A 

2A 

37 

33 

00 

38 

0169 

22642 

80 

80 

80 

80 

80 

80 

80 

80 

0400 

23042 

08 

08 

08 

08 

08 

08 

08 

08 

0040 

23442 

2E 

2A 

00 

2E 

2D 

37 

2A 

33 

0147 

22650 

80 

80 

80 

80 

80 

80 

80 

80 

0400 

23050 

08 

08 

08 

08 

08 

08 

08 

08 

0040 

23450 

00 

38 

39 

37 

2A 

2A 

39 

16 

014B 

22658 

80 

80 

80 

80 

80 

80 

80 

76 

03F6 

23058 

08 

08 

08 

76 

08 

08 

08 

08 

OOAE 

23458 

37 

26 

28 

2A 

37 

08 

08 

38 

012E 

22666 

80 

80 

80 

80 

80 

80 

80 

80 

0400 

23066 

08 

08 

08 

08 

08 

08 

08 

08 

0040 

23466 

2E 

28 

2D 

2A 

37 

00 

29 

3A 

0147 

22674 

80 

80 

80 

80 

80 

80 

80 

80 

0400 

23074 

08 

08 

08 

08 

08 

08 

08 

08 

0040 

23474 

37 

28 

2D 

00 

26 

31 

31 

2A 

013E 

22682 

80 

80 

80 

80 

80 

80 

80 

80 

0400 

23082 

08 

08 

08 

08 

08 

08 

08 

08 

0040 

23482 

00 

2D 

2E 

33 

29 

2A 

37 

33 

014B 

22690 

80 

80 

80 

80 

80 

80 

80 

80 

0400 

23090 

08 

08 

08 

08 

76 

08 

08 

08 

OOAE 

23490 

2E 

38 

38 

2A 

IB 

08 

08 

26 

0119 

22698 

76 

80 

05 

83 

83 

83 

83 

85 

038C 

23098 

08 

08 

08 

08 

08 

08 

08 

08 

0040 

23498 

27 

2A 

37 

00 

26 

28 

2D 

39 

013c 

22706 

87 

83 

83 

83 

83 

04 

05 

83 

031F 

23106 

08 

08 

08 

08 

08 

08 

08 

08 

0040 

23506 

3A 

33 

2C 

00 

OE 

00 

27 

2A 

00F8 

22714 

83 

83 

83 

83 

81 

87 

83 

83 

041A 

23114 

08 

08 

08 

08 

08 

08 

08 

08 

0040 

23514 

2E 

00 

2A 

2E 

33 

2A 

32 

00 

0115 

22722 

83 

83 

83 

05 

83 

83 

83 

83 

039A 

23122 

08 

08 

08 

08 

08 

76 

08 

08 

OOAE 

23522 

28 

37 

26 

38 

2D 

08 

08 

2C 

0126 

22730 

85 

76 

80 

05 

00 

87 

83 

83 

030D 

23130 

08 

08 

08 

08 

08 

08 

08 

08 

0040 

23530 

2E 

27 

39 

00 

2A 

38 

00 

35 

0125 

22738 

81 

02 

03 

03 

03 

03 

01 

05 

0095 

23138 

08 

08 

08 

08 

08 

08 

08 

08 

0040 

23538 

3A 

33 

30 

39 

2A 

26 

27 

3F 

018C 

22746 

80 

80 

80 

80 

80 

80 

02 

03 

0305 

23146 

08 

08 

08 

08 

08 

08 

08 

08 

0040 

23546 

3A 

2C 

00 

3A 

33 

29 

00 

27 

0123 

22754 

03 

03 

03 

03 

05 

00 

87 

83 

OllB 

23154 

08 

08 

08 

08 

08 

08 

76 

08 

OOAE 

23554 

2A 

2E 

00 

00 

00 

08 

08 

2A 

0092 

22762 

83 

81 

76 

80 

05 

80 

82 

83 

0384 

23162 

08 

08 

08 

08 

08 

08 

08 

08 

0040 

23562 

2E 

33 

2A 

32 

00 

13 

16 

26 

010c 

22770 

03 

80 

85 

80 

80 

80 

80 

05 

030D 

23170 

08 

08 

08 

08 

08 

08 

08 

08 

0040 

23570 

27 

38 

28 

2D 

3A 

38 

38 

00 

015E 

22778 

05 

03 

03 

03 

03 

03 

84 

02 

009A 

23178 

08 

08 

08 

08 

08 

08 

08 

08 

0040 

23578 

2E 

38 

39 

00 

29 

26 

38 

00 

0126 

22786 

03 

03 

03 

03 

03 

05 

80 

82 

0116 

23186 

08 

08 

08 

08 

08 

08 

08 

76 

OOAE 

23586 

38 

35 

2E 

2A 

31 

08 

08 

26 

012c 

22794 

83 

03 

80 

76 

80 

80 

80 

80 

037C 

23194 

08 

08 

08 

08 

08 

08 

08 

08 

0040 

23594 

3A 

38 

IB 

38 

34 

33 

38 

39 

019D 

22802 

80 

80 

80 

80 

80 

80 

80 

80 

0400 

23202 

08 

08 

08 

08 

08 

08 

08 

08 

0040 

23602 

00 

3C 

2A 

33 

33 

00 

29 

2E 

0123 

22810 

80 

80 

80 

80 

80 

80 

80 

80 

0400 

23210 

08 

08 

08 

08 

08 

08 

08 

08 

0040 

23610 

2A 

00 

38 

35 

2E 

2A 

31 

3F 

015F 

22818 

80 

80 

80 

80 

80 

80 

80 

80 

0400 

232I8 

08 

08 

08 

08 

08 

08 

08 

08 

0040 

23618 

2A 

2E 

39 

00 

IC 

08 

08 

2E 

OOEB 

22826 

80 

80 

80 

80 

76 

08 

08 

08 

02dE 

23226 

76 

08 

08 

08 

08 

08 

08 

08 

OOAE 

23626 

38 

39 

IB 

29 

2A 

37 

00 

27 

013D 

22834 

08 

08 

08 

08 

08 

08 

08 

08 

0040 

23234 

08 

08 

08 

08 

08 

08 

08 

08 

0040 

23634 

34 

33 

3A 

38 

10 

27 

11 

00 

0121 

22842 

08 

08 

08 

08 

08 

08 

08 

08 

0040 

23242 

08 

08 

08 

08 

08 

08 

08 

08 

0040 

23642 

2A 

37 

31 

26 

3A 

27 

39 

00 

0152 

22850 

08 

08 

08 

08 

08 

08 

08 

08 

0040 

23250 

08 

08 

08 

08 

08 

08 

08 

08 

0040 

23650 

2A 

2E 

33 

2A 

33 

08 

08 

28 

0120 

22858 

08 

08 

08 

08 

08 

76 

08 

00 

00A6 

23258 

08 

76 

08 

B8 

B5 

AE 

AA 

Bl 

03FC 

23658 

37 

26 

38 

2D 

00 

34 

29 

2A 

0149 

22866 

38 

35 

2E 

2A 

31 

38 

39 

26 

018D 

23266 

B8 

B9 

A6 

B7 

B9 

8E 

80 

B9 

054E 

23666 

37 

00 

13 

16 

26 

27 

38 

28 

OIOD 

22874 

2A 

37 

30 

2A 

00 

00 

00 

00 

OOBB 

23274 

A6 

B8 

B9 

AA 

80 

8B 

B5 

8B 

050C 

23674 

2D 

3A 

38 

38 

IB 

29 

2A 

37 

017c 

22882 

00 

00 

00 

OE 

00 

00 

13 

00 

0021 

23282 

80 

A9 

B7 

BA 

AA 

A8 

BO 

AA 

0546 

23682 

00 

2B 

26 

30 

16 

08 

08 

39 

OOEO 

22890 

27 

00 

12 

00 

00 

08 

76 

08 

OOBF 

23290 

B3 

08 

35 

35 

35 

35 

35 

35 

01F9 

23690 

34 

37 

10 

2B 

11 

00 

3B 

2A 

011c 

22898 

08 

08 

08 

08 

08 

08 

08 

08 

0040 

23298 

35 

35 

80 

80 

80 

80 

80 

80 

036A 

23698 

37 

3B 

2E 

2A 

31 

2B 

26 

28 

0174 

22906 

08 

08 

08 

08 

08 

08 

08 

08 

0040 

23306 

80 

80 

80 

80 

80 

80 

80 

80 

0400 

23706 

2D 

39 

00 

29 

2E 

2A 

00 

26 

OIOD 

22914 

08 

08 

08 

08 

08 

08 

08 

08 

0040 

23314 

80 

80 

80 

80 

80 

80 

80 

80 

0400 

237 14 

33 

3F 

2A 

2E 

16 

08 

08 

2C 

OllC 

22922 

08 

08 

08 

08 

08 

08 

08 

76 

OOAE 

23322 

80 

80 

80 

80 

80 

80 

80 

80 

0400 

23722 

2A 

35 

3A 

33 

30 

39 

2A 

IB 

017A 

22930 

08 

00 

00 

ID 

1B 

38 
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Tanz auf dem Vulkan 


Rechner: ZX-81 
Programmname: Vulcano Dancing 
Programmlänge: 7000 Bytes 
Programmiersprache: Assembler 
Zubehör: 1ökByte-Erweiterung 

Auf dieser Welt gibt es viele Bräu¬ 
che, von Kulturkreis zu Kultur¬ 
kreis verschiedene. Auch auf einer 
kleinen Insel - mitten in der Süd¬ 
see - die schon seit ewigen Zeiten 
der rauhen See zum Trotz einigen 
wenigen Einwohnern Schutz und Un¬ 
terschlupf gewährt. Hier haben sich 
Bräuche entwickelt, die von den 
wenigen Einwohnern - in unseren 
Breitengraden mit einiger Sicher¬ 


heit "Wilde" genannt - alljährlich 
begangen werden. Ein in den kühlen 
Wintertagen sehr beliebter Brauch 
ist: Der Tanz auf dem Vulkan. Er 

erhebt sich inmitten der Insel . 

Wir bitten zum Tanz 

Hier bietet sich Ihnen nun einmal 
die Gelegenheit an einem dieser 
Tänze teilzuhaben. Und Sie haben 
zudem den Vorteil, daß sich Ihre 
Umgebung etwas freundlicher gestal¬ 
tet. Ihr Bestreben liegt darin, daß 
Sie möglichst oft den Krater des 
Vulkans überspringen, und dabei so 
viele Punkte wie möglich sammeln. 
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Erschwert wird die Aufgabe durch 
die andauernden Eruptionen des Vul¬ 
kans, sowie das den Vulkan umgeben¬ 
de Gestein. Treffen Sie auf einem 
mit '•+" gekennzeichneten Ort auf, 
hüpfen Sie eine Stufe höher, tref¬ 
fen Sie auf ein ”-" , klettern Sie 
eine hinab. Ein "?” dagegen be¬ 
fördert Sie nach dem Auftreffen an 
einen unbestimmten Ort, unter Um¬ 
ständen gar mitten in den Vulkan. 

Ungeschriebene Gesetze 

Dann sind Sie Ihre Punkte losgewor¬ 
den. Diese verlieren Sie auch, wenn 
Sie direkt in eine Eruption sprin¬ 
gen. Sogar die Gesamtpuriktezahl 
verringert sich um die Hälfte. Die 
Gesamtpuriktezahl erhöht sich, wenn 
Sie einen Abstieg wagen, oder auf 
ein "$" springen. Doch es sei noch 


nicht alles verraten, was der Vul¬ 
kan an Geheimnissen birgt. Nur 
einen Hinweis noch: Kühlen Kopf 
bewahren! 

Zur Programmeingabe 

Gehen Sie bitte, wie in dem Arti¬ 
kel: "So geben Sie Maschinenpro¬ 

gramme ein" beschrieben, vor. 

Liste der Variablen: 

A=37*191 
B=117 
0=28 
D=118 

Hinzu kommen noch folgende Befehle 
im Direktmodus: 

POKE 16509,0 
POKE 16510,0 
POKE 16515,118 
Start: RAND USR 21300 
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Sinclair ZX 81, Ausgabe 3 
















Geschicklichkeit 
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Sternschnuppen 


Rechner; ZX-81 
Programmname: Klicker 
Programmlänge; 1000 Bytes 
Programmiersprache; Assembler 
Zubehör; 1ökByte-Erweiterung 

Versuchen Sie Ihr Glück! Mit etwas 
Geschick und Glück können Sie einen 
fallenden Stern so ablenken, daß er 
in ein Zahlenfeld mit einem 
möglichst hohen Wert fällt. Diesen 
Wert bekommen Sie mit zehn multi¬ 
pliziert gutgeschrieben. Fällt der 
Stern dagegen in ein Zeichenfeld, 
erwarten Sie einige Überraschungen. 
Mit der Taste Null wird der Stern 
abgelenkt. 

Auch besteht die Möglichkeit, 


zwischen zwei Spielstufen zu wäh¬ 
len. Das erste Spiel muß immer mit 
Spielstufe "A" , der langsameren 
Stufe, begonnen werden. 

Zur Programmeingabe 

Gehen Sie bitte, wie in dem Arti¬ 
kel; "So geben Sie Maschinenpro¬ 
gramme ein" beschrieben, vor. 

Liste der Variablen; 

A=3*177 und 1*178 

B=217 

C=2 

D=118 

E=16514 bis 17241 
Start; RAND USR 16587 

Helmut Dursch 


1 REM 

728 Bytes reserviert 

! 


16658 

42 

20 

01 

73 

2B 

73 

10 

F5 

0279 

2 SAVE « 

k[l; 

1" 







16666 

2B 

73 

28 

01 

71 

2B 

15 

20 

0198 

3 SLOW 









16674 

E7 

48 

C5 

D9 

01 

15 

00 

D9 

03BC 











16682 

11 

63 

40 

CD 

00 

40 

D9 

OD 

02A7 

16514 

76 

39 

34 

39 

26 

31 

OE 

00 

0181 

16690 

C5 

D9 

El 

F5 

IE 

6E 

OE 

OA 

0418 

16522 

00 

00 

00 

IC 

A6 

2C 

26 

32 

0146 

16698 

CD 

E2 

43 

Fl 

CA 

7D 

43 

21 

048E 

16530 

2A 

OE 

00 

IC 

76 

37 

2A 

30 

015B 

16706 

8E 

40 

36 

17 

ED 

5F 

00 

00 

0267 

16538 

34 

37 

29 

OE 

00 

00 

00 

00 

00A2 

16714 

10 

FC 

3D 

20 

F9 

11 

14 

00 

0287 

16546 

IC 

BO 

Bl 

AE 

A8 

BO 

AA 

B7 

04E4 

16722 

19 

E5 

36 

17 

3E 

EF 

DB 

FE 

0451 

16554 

76 

El 

E3 

09 

CI 

E5 

C5 

01 

04AF 

16730 

1F 

38 

3D 

3A 

34 

40 

4F 

00 

0191 

16562 

E8 

03 

C3 

E2 

43 

97 

95 

A8 

04A7 

16738 

3E 

80 

El 

E5 

36 

08 

2B 

BE 

03AB 

16570 

A6 

A3 

A2 

9F 

9E 

9D 

9D 

9D 

04FF 

16746 

28 

03 

23 

23 

BE 

El 

E5 

19 

O 3 OE 

16578 

9E 

AO 

AI 

A4 

A5 

A7 

AF 

8D 

050B 

16754 

20 

OF 

El 

E5 

CB 

41 

2B 

28 

0354 

16586 

76 

21 

CI 

42 

22 

OC 

40 

3E 

0246 

16762 

02 

23 

23 

CB 

76 

20 

19 

CI 

0283 

16594 

FD 

DB 

FE 

1F 

38 

F9 

21 

82 

04C9 

16770 

E5 

23 

CB 

76 

28 

FB 

3E 

3C 

03E6 

16602 

40 

11 

5C 

40 

01 

29 

00 

ED 

0204 

16778 

BD 

28 

OD 

06 

13 

2B 

CB 

7E 

027F 

16610 

BO 

58 

OE 

OC 

ED 

BO 

AF 

08 

0376 

16786 

36 

80 

28 

02 

36 

08 

10 

F5 

0223 

16618 

31 

5C 

40 

ED 

73 

OC 

40 

C5 

033E 

16794 

El 

36 

17 

OE 

16 

ED 

5F 

3D 

02DB 

16626 

21 

CO 

42 

11 

FD 

43 

01 

CI 

0336 

16802 

20 

FD 

OD 

20 

F8 

36 

08 

19 

0299 

16634 

01 

ED 

B8 

C3 

3D 

42 

OE 

14 

O 3 OA 

16810 

CB 

7E 

28 

1A 

E5 

01 

D7 

BD 

0405 

16642 

2E 

CA 

ED 

B8 

EB 

11 

08 

15 

03B6 

16818 

09 

El 

38 

14 

ED 

5F 

1F 

30 

02D1 

16650 

01 

80 

09 

36 

76 

2B 

71 

CB 

029D 

16826 

06 

23 

CB 

76 

28 

08 

2B 

2B 

OIFO 
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Geschicklichkeit 


16834 

CB 

76 

28 

02 

23 

23 

18 

89 

0252 

17042 

00 

37 

2A 

30 

34 

37 

29 

00 

0125 

16842 

7E 

CB 

BE 

FE 

A6 

30 

OD 

FE 

04E6 

17050 

2C 

26 

32 

2A 

00 

00 

34 

3B 

011D 

16850 

9D 

38 

09 

OE 

00 

10 

FE 

OD 

0207 

17058 

2A 

37 

00 

3E 

1B 

3C 

A7 

ED 

028A 

16858 

20 

FB 

18 

10 

16 

18 

OE 

19 

0198 

17066 

42 

30 

FA 

09 

12 

13 

B9 

CB 

031E 

16866 

10 

FE 

OD 

20 

FB 

17 

3F 

IF 

02AB 

17074 

40 

01 

64 

00 

20 

ED 

OE 

OA 

01CA 

16874 

77 

15 

20 

F2 

CB 

FE 

FE 

AF 

0514 

17082 

38 

E9 

3E 

IC 

85 

12 

C9 

76 

0351 

16882 

20 

IF 

ED 

5F 

23 

CB 

76 

28 

0317 

17090 

76 

76 

76 

76 

76 

76 

76 

76 

03B0 

16890 

05 

A7 

ED 

52 

18 

F6 

CB 

BE 

0482 

17098 

76 

BD 

BD 

BD 

80 

BO 

Bl 

AE 

053C 

16898 

E3 

E3 

10 

FA 

CB 

FE 

3D 

20 

04F6 

17106 

A8 

BO 

AA 

B7 

80 

BD 

BD 

BD 

0570 

16906 

EB 

7E 

FE 

AF 

20 

01 

2B 

18 

037A 

17114 

BD 

BD 

BD 

BD 

BD 

80 

BO 

Bl 

0592 

16914 

B7 

OE 

32 

FE 

A7 

28 

12 

OE 

02E4 

17122 

AE 

A8 

BO 

AA 

B7 

80 

BD 

BD 

0561 

16922 

64 

30 

OE 

FE 

97 

01 

F4 

01 

032D 

17130 

BD 

76 

BD 

00 

00 

00 

00 

00 

OIFO 

16930 

28 

07 

38 

08 

D6 

9C 

4F 

06 

0236 

17138 

00 

00 

00 

00 

00 

38 

39 

26 

0097 

16938 

00 

C3 

67 

42 

OE 

00 

FE 

95 

030D 

17146 

37 

39 

00 

00 

00 

00 

30 

31 

00D1 

16946 

20 

08 

D9 

OC 

OC 

OC 

OC 

D9 

020A 

17154 

2E 

28 

30 

2A 

37 

00 

00 

00 

00E7 

16954 

18 

ED 

OE 

2C 

18 

EB 

CI 

El 

03E4 

17162 

00 

BD 

76 

BD 

00 

39 

26 

38 

0287 

16962 

E5 

A7 

ED 

42 

30 

OC 

El 

C5 

049D 

17170 

39 

2A 

33 

OE 

00 

00 

OB 

26 

00D5 

16970 

01 

OC 

00 

21 

CA 

43 

IE 

9D 

01F6 

17178 

lA 

35 

OB 

00 

00 

00 

00 

00 

005A 

16978 

ED 

BO 

El 

E5 

IE 

78 

CD 

06 

04CC 

17186 

00 

OB 

IC 

OB 

00 

00 

00 

00 

0032 

16986 

40 

OE 

OC 

IE 

ED 

21 

D6 

43 

029F 

17194 

00 

00 

BD 

76 

BD 

BD 

90 

A8 

03E5 

16994 

ED 

BO 

11 

68 

40 

21 

DB 

42 

0394 

17202 

91 

9D 

A5 

A4 

9F 

80 

AD 

9B 

04DE 

17002 

36 

16 

3E 

FD 

DB 

FE 

10 

FA 

046A 

17210 

A9 

BA 

B7 

B8 

A8 

AD 

80 

A4 

054B 

17010 

IF 

30 

OC 

36 

OA 

3E 

DF 

DB 

0293 

17218 

AO 

A4 

9C 

80 

BC 

AA 

AE 

A9 

051D 

17018 

FE 

10 

FA 

CB 

47 

20 

E6 

EB 

050B 

17226 

AA 

B3 

BD 

BD 

76 

76 

76 

76 

04AF 

17026 

36 

A6 

30 

01 

34 

21 

28 

42 

01CC 

17234 

76 

76 

76 

76 

76 

76 

76 

76 

03B0 

17034 

C3 

44 

42 

33 

2A 

3A 

2A 

37 

0241 

00 00 

00 

00 

00 

00 

00 

00 

0000 



Tag der offenen Zoo-Tür 



« < 


J • 04: 

I 


Rechner: ZX-81 
Programmname: Chase 
Programmlänge: 1000 Bytes 


Programmiersprache: Assembler 

Zubehör: 1ökByte-Erweiterung 

Aus einem Zoo sind mehrere gänzlich 
ungefährliche Tierchen entwichen. 
Es ist Ihre Aufgabe, diese wieder 
einzufangen. Ihre Spielfigur (*) 
zieht dabei ständig eine dicke 
Spur hinter sich her, die von den 
Tieren (x) nicht überschritten wer¬ 
den kann. Somit läßt sich deren 
Bewegungsspielraum immer mehr ein¬ 
engen. Haben Sie ein Tier eingefan¬ 
gen, erscheint sofort der nächste 
Ausreißer auf dem Bildschirm. Je 
schneller Sie die Tiere fangen, 
desto besser! Sollte es Ihnen ge¬ 
lingen, alle 12 Flüchtlinge inner¬ 
halb der vorgegebenen Zeit festzu¬ 
setzen, können Sie noch Punkte 
durch das Schwärzen der RestSpiel¬ 
fläche erringen. 

Steuerung: 

1=links, 0=rechts, 2=runter, 

9=rauf, P=Neustart. 


Eine Publikation von CHIP 
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Geschicklichkeit 


Hinweis zur Programmeingabe 

Gehen Sie bitte, wie in dem Arti¬ 
kel; "So geben Sie Maschinenpro¬ 
gramme ein" beschrieben, vor. 

Liste der Variablen: 


A=3*162 
B=244 
C=1 
D = 118 

E=16514 bis 17012 
Start: RAND USR 16571 

Helmut Dursch 


1 REM 

499 Bytes reserviert 

! 


16746 

40 

01 

E8 

FF 

23 

7E 

FE 

08 

03CF 

2 SAVE " 

C[H]" 







16754 

28 

FA 

FE 

1 1 

28 

03 

03 

18 

0277 

3 SLOW 









16762 

F3 

C5 

CD 

C6 

43 

F5 

11 

6F 

0503 











16770 

40 

CD 

E2 

43 

Fl 

CI 

DA 

9B 

0559 











16778 

43 

21 

34 

FE 

09 

01 

EE 

02 

0290 

16514 

76 

39 

34 

39 

26 

31 

OE 

00 

0181 

16786 

38 

F4 

D9 

CB 

79 

D9 

20 

8F 

04D1 

16522 

00 

00 

00 

IC 

17 

17 

3F 

2A 

00B3 

16794 

El 

E3 

E5 

ED 

5F 

OE 

05 

E6 

04EE 

16530 

2E 

39 

OE 

00 

00 

IC 

76 

37 

013E 

16802 

03 

47 

3E 

08 

11 

16 

00 

28 

OODF 

16538 

2A 

30 

34 

37 

29 

OE 

00 

00 

OOFC 

16810 

11 

05 

28 

17 

05 

28 

ID 

El 

0180 

16546 

00 

00 

IC 

97 

97 

A8 

AD 

A6 

0345 

16818 

E5 

OD 

28 

2B 

19 

BE 

28 

ID 

0261 

16554 

B8 

AA 

97 

97 

76 

2A 

58 

40 

03C8 

16826 

El 

E5 

OD 

28 

22 

23 

BE 

28 

0326 

16562 

09 

22 

58 

40 

06 

03 

C3 

DE 

026D 

16834 

14 

El 

E5 

OD 

28 

19 

2B 

BE 

0311 

16570 

43 

11 

5C 

40 

21 

82 

40 

01 

01D4 

16842 

28 

OB 

El 

E5 

OD 

28 

10 

A7 

02E5 

16578 

2D 

00 

ED 

BO 

58 

OE 

OC 

ED 

0329 

16850 

ED 

52 

BE 

20 

DA 

Dl 

36 

BD 

04BB 

16586 

BO 

31 

5C 

40 

AF 

08 

ED 

73 

0394 

16858 

E3 

E5 

EB 

77 

C3 

B3 

42 

CD 

05AF 

16594 

OC 

40 

C5 

11 

FD 

43 

01 

91 

02F4 

16866 

C6 

43 

E5 

00 

06 

28 

21 

88 

02C5 

16602 

01 

21 

73 

42 

ED 

B8 

13 

EB 

037A 

16874 

40 

23 

7E 

FE 

76 

28 

FA 

FE 

0475 

16610 

E9 

11 

16 

76 

01 

00 

15 

2B 

01C7 

16882 

BD 

28 

FA 

FE 

11 

28 

06 

17 

0333 

16618 

72 

2B 

36 

07 

34 

10 

FA 

ID 

0235 

16890 

3F 

1F 

77 

18 

EC 

10 

E7 

El 

03B1 

16626 

20 

F2 

C5 

11 

20 

99 

ED 

53 

03E1 

16898 

29 

44 

4D 

El 

D9 

OD 

CB 

79 

03C5 

16634 

34 

40 

D9 

OE 

OB 

D9 

E5 

ED 

0411 

16906 

D9 

CA 

8B 

42 

C3 

AB 

42 

IE 

043E 

16642 

5F 

87 

26 

00 

6F 

29 

EB 

21 

02B0 

16914 

63 

CD 

00 

40 

El 

El 

CI 

El 

04D4 

16650 

72 

40 

19 

16 

08 

23 

7E 

FE 

0288 

16922 

ED 

42 

30 

03 

21 

00 

00 

09 

018C 

16658 

11 

28 

05 

BA 

20 

F7 

18 

05 

022C 

16930 

E5 

IE 

7A 

CD 

07 

40 

OE 

09 

02A8 

16666 

2B 

7E 

BA 

20 

FB 

36 

BD 

E3 

0454 

16938 

IE 

Dl 

21 

D5 

43 

ED 

BO 

21 

03E6 

16674 

E5 

11 

63 

40 

CD 

00 

40 

El 

0387 

16946 

6D 

42 

3E 

DF 

DB 

FE 

1F 

38 

03FC 

16682 

11 

16 

00 

E5 

OE 

12 

10 

FE 

023A 

16954 

F9 

E9 

2A 

34 

40 

29 

29 

29 

02FB 

16690 

OD 

20 

FB 

3E 

F7 

DB 

FE 

1F 

0455 

16962 

6C 

26 

00 

30 

01 

6C 

C9 

00 

01F8 

16698 

38 

10 

2B 

3E 

08 

BE 

28 

05 

01 A4 

16970 

00 

2C 

26 

32 

2A 

00 

34 

3B 

01 ID 

16706 

3E 

80 

BE 

20 

03 

E3 

36 

80 

0338 

16978 

2A 

37 

OE 

E8 

18 

03 

01 

64 

01D7 

16714 

18 

18 

1F 

38 

03 

19 

18 

EB 

01A6 

16986 

00 

3E 

1B 

3C 

A7 

ED 

42 

30 

029B 

16722 

3E 

EF 

DB 

FE 

1F 

38 

03 

23 

0383 

16994 

FA 

09 

12 

13 

B9 

CB 

40 

20 

030C 

16730 

18 

F4 

1F 

38 

05 

A7 

ED 

52 

034E 

17002 

ED 

OE 

OA 

38 

EC 

3E 

IC 

85 

0308 

16738 

18 

F6 

El 

36 

17 

E5 

21 

88 

03CA 

17010 

12 

C9 

76 

00 

00 

00 

00 

00 

0151 


Der wilde Cruzia 


Rechner: ZX-81 
Programmname: Cruzia 
Programmlänge; 1000 Bytes 
Programmiersprache; Assembler 
Zubehör: 16kByte-Erweiterung 


Die 'wilde Cruzia' ist ausgebro¬ 
chen. Sie muß wieder eingefangen 
werden. Dies kann nur mit dem 
'schwarzen Fänger' geschehen, den 


Sie mit den vier Cursortasten 
steuern können. Doch leichter ge¬ 
sagt, als getan, denn die 'wilde 
Cruzia' verändert ständig ihre Po¬ 
sition. Haben Sie 'Cruzia' gefangen 
und in ihren Käfig in der rechten 
unteren Ecke gebracht, oder ist die 
maximale Spielzeit von ca. 2,5 
Minuten abgelaufen, ist das Spiel 
beendet. Es stehen Ihnen zwei 
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Geschicklichkeit 



Spielstufen zur Verfügung. 

Hinweis zur Programmeingabe 

Gehen Sie bitte, wie in dem Arti¬ 
kel: "So geben Sie Maschinenpro¬ 

gramme ein" beschrieben, vor. 

Liste der Variablen: 

A=2*194 und 1*195 

B=85 

C=2 

D entfällt 
E=16514 bis 17109 
Start:RAND USR 16538 

Helmut Dursch 


16514 

EA 

OE 

17 

11 

76 

76 

21 

OC 

0239 

16794 

EB 

D9 

D5 

D9 

El 

36 

BD 

A7 

05ED 

16522 

44 

06 

16 

2B 

73 

2B 

10 

FC 

0235 

16802 

ED 

52 

28 

OE 

01 

FF 

FF 

21 

0395 

16530 

IE 

08 

72 

OD 

20 

F3 

23 

36 

0211 

16810 

00 

14 

09 

38 

FD 

EB 

E3 

C3 

03E3 

16538 

80 

E5 

OB 

ED 

43 

34 

40 

ED 

0401 

16818 

B6 

40 

EB 

36 

3D 

3E 

OF 

11 

02B2 

16546 

5F 

OF 

6F 

24 

CB 

6E 

28 

01 

0263 

16826 

41 

42 

01 

08 

00 

21 

F3 

41 

01E1 

16554 

23 

36 

3D 

E3 

E5 

21 

F4 

43 

03B6 

16834 

ED 

BO 

21 

10 

00 

19 

EB 

3D 

030F 

16562 

36 

BD 

EB 

D9 

El 

E5 

3E 

08 

04C3 

16842 

20 

FO 

El 

21 

AA 

41 

36 

14 

0347 

16570 

11 

17 

00 

01 

FE 

F7 

ED 

40 

034B 

16850 

3E 

EF 

DB 

FE 

1F 

30 

09 

3E 

039C 

16578 

CB 

60 

20 

18 

2B 

BE 

20 

6B 

02D7 

16858 

F7 

DB 

FE 

1F 

38 

F2 

36 

OA 

0459 

16586 

19 

BE 

20 

67 

36 

80 

23 

77 

02AE 

16 866 

C3 

82 

40 

76 

00 

00 

00 

00 

01FB 

16594 

El 

77 

23 

CB 

7E 

28 

01 

77 

0364 

16874 

IC 

00 

35 

3A 

33 

30 

39 

2A 

0151 

16602 

2B 

2B 

18 

53 

06 

EF 

ED 

40 

02E3 

16882 

00 

00 

97 

A8 

B7 

BA 

BF 

AE 

041D 

16610 

CB 

58 

28 

IC 

CB 

50 

28 

37 

02E1 

16890 

A6 

97 

76 

31 

5C 

40 

21 

ID 

02BE 

16618 

CB 

60 

21 

47 

19 

CB 

46 

20 

02DD 

16898 

42 

22 

OC 

40 

3E 

EF 

DB 

FE 

03B6 

16626 

42 

23 

BE 

20 

3E 

36 

80 

2B 

0262 

16906 

1F 

30 

07 

3E 

F7 

DB 

FE 

1F 

0383 

16634 

36 

80 

CI 

02 

03 

02 

18 

34 

01CA 

16914 

38 

F2 

21 

E4 

41 

AF 

08 

22 

0349 

16642 

A7 

ED 

52 

BE 

20 

2D 

23 

BE 

03D2 

16922 

OC 

40 

18 

AF 

76 

76 

76 

76 

02EB 

16650 

20 

29 

36 

80 

2B 

36 

80 

E3 

02C3 

16930 

76 

76 

76 

76 

76 

76 

97 

A8 

0403 

16658 

19 

CB 

7E 

28 

01 

77 

El 

E5 

03C8 

16938 

B7 

BA 

BF 

AE 

A6 

97 

97 

A8 

055A 

16666 

19 

77 

23 

77 

El 

18 

15 

23 

025B 

16946 

B7 

BA 

BF 

AE 

A6 

97 

97 

A8 

055A 

16674 

CB 

46 

20 

OF 

19 

BE 

20 

OB 

0242 

16954 

B7 

BA 

BF 

AE 

A6 

97 

97 

A8 

055A 

16682 

36 

80 

2B 

77 

El 

77 

23 

36 

0309 

16962 

B7 

BA 

BF 

AE 

A6 

97 

76 

97 

0528 

16690 

80 

18 

01 

El 

D9 

21 

06 

04 

027E 

16970 

38 

39 

26 

37 

39 

00 

16 

39 

0156 

16698 

ED 

5F 

94 

30 

FD 

8C 

47 

AF 

048F 

16978 

26 

38 

39 

2A 

33 

OE 

OB 

IC 

0129 

16706 

85 

10 

FD 

95 

21 

7C 

41 

77 

037C 

16986 

OB 

16 

OB 

ID 

OB 

10 

15 

39 

00B2 

16714 

06 

03 

2A 

34 

40 

29 

10 

FD 

01DD 

16994 

2A 

32 

35 

34 

11 

00 

97 

76 

01E3 

16722 

4C 

21 

E6 

41 

79 

06 

1B 

04 

0232 

17002 

97 

38 

3A 

2A 

3A 

2A 

37 

16 

01E4 

16730 

D6 

64 

30 

FB 

C6 

64 

70 

23 

0422 

17010 

39 

26 

38 

39 

2A 

33 

OE 

OB 

0146 

16738 

06 

1B 

04 

D6 

OA 

30 

FB 

C6 

02F6 

17018 

00 

21 

16 

24 

00 

OB 

00 

00 

0066 

16746 

OA 

70 

23 

C6 

IC 

77 

OC 

OD 

020F 

17026 

00 

00 

00 

00 

00 

00 

00 

97 

0097 

16754 

28 

42 

3E 

08 

12 

D9 

E3 

77 

02F5 

17034 

76 

97 

38 

35 

2E 

2A 

31 

OE 

0211 

16762 

44 

4D 

18 

00 

60 

69 

2B 

BE 

025B 

17042 

27 

37 

2E 

33 

2C 

2A 

00 

28 

013D 

16770 

28 

14 

60 

69 

19 

BE 

28 

OE 

0212 

17050 

37 

3A 

3F 

2E 

26 

10 

3D 

11 

0162 

16778 

60 

69 

23 

BE 

28 

08 

60 

69 

02A3 

17058 

00 

33 

26 

28 

2D 

00 

BD 

00 

016B 

16786 

A7 

ED 

52 

BE 

20 

E6 

36 

3D 

041D 

17066 

97 

76 

97 

A8 

B7 

BA 

BF 

AE 

052A 
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Geschicklichkeit 


17074 

A6 

97 

97 

A8 

B7 

BA 

BF 

AE 

055A 

17114 

00 

F8 

OB 

28 

B7 

OB 

76 

00 

0263 

17082 

A6 

97 

97 

A8 

B7 

BA 

BF 

AE 

055A 

17122 

03 

02 

00 

E4 

76 

FF 

FF 

FF 

045C 

17090 

A6 

97 

97 

A8 

B7 

BA 

BF 

AE 

055A 

17130 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

07F8 

17098 

A6 

97 

76 

76 

76 

76 

76 

76 

0401 

17138 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

07F8 

17106 

76 

76 

76 

76 

76 

00 

02 

06 

0256 

17146 

FF 

FF 

FF 








007 läßt grüßen 


Rechner: ZX-81 
Programmname: Superblitzer 
Programmlänge: 1000 Bytes 
Programmiersprache: Assembler 
Zubehör: 1ökByte-Erweiterung 

Auf einer Fahrbahn kommen Ihrem 
Auto, durch dargestellt, stän¬ 
dig verschiedene Fahrzeuge entge¬ 
gen, mit denen Sie nicht kolli¬ 
dieren dürfen. Dazu sind Sie in der 
Lage, diese - wie James Bond - mit¬ 
tels einer eingebauten Kanone abzu¬ 
schießen. Jedes getroffene Fahrzeug 
bringt Punkte. Bei einem '5'er 
erhalten Sie 30, bei einem '<' 100 
Punkte auf Ihr Konto. Zudem kommt 
Ihnen ein 'V entgegen, das - eben¬ 
so wie das '<’ - die Brücke hinter 
Ihrem Auto nicht erreichen darf. 
Sonst sind alle Ihre Zeitpunkte 
vertan. Diese Zeitpunkte werden 


Ihnen immer dann gutgeschrieben, 
sobald Sie ein 'V getroffen haben. 
Mit dem Ablauf der Zeit ist das 
Spiel zu Ende. 

Die Spielgeschwindigkeit kann mit 
den Tasten <A> (für normal), und 
<P> (für schnell) gewählt werden. 
Das jeweils erste Spiel muß mit <A> 
begonnen werden. 

Hinweis zur Programmeingabe 

Gehen Sie bitte wie in dem Artikel: 
"So geben Sie Maschinenprogramme 
ein" beschrieben vor. Liste der 
Variablen: A=3*179 und 1*182 
B=227 
0=2 
D=118 

E=16514 bis 17251 
Start: RAND USR 16581 

Helmut Dursch 


1 REM 

738 Bytes rese 

rviert 

I 


16650 

D9 

3E 

10 

21 

E9 

41 

11 

76 

02F9 

2 SAVE " 

s[b; 

1" 







16658 

06 

01 

80 

20 

CB 

5F 

28 

02 

01FB 

3 SLOW 









16666 

OE 

08 

2B 

73 

2B 

71 

10 

FC 

025 c 











16674 

72 

3D 

BA 

20 

EC 

2E 

E3 

D9 

045F 

16514 

76 

39 

34 

39 

26 

31 

OE 

00 

0181 

16682 

D5 

11 

63 

40 

CD 

BD 

43 

2A 

0380 

16522 

00 

00 

00 

IC 

35 

3A 

33 

30 

OOEE 

16690 

34 

40 

29 

29 

29 

6C 

60 

30 

01EB 

16530 

39 

2A 

OE 

00 

00 

00 

00 

IC 

008D 

16698 

01 

6C 

F5 

IE 

7A 

CD 

DO 

43 

03DA 

16538 

00 

3F 

2A 

2E 

39 

OE 

00 

00 

OODE 

16706 

Fl 

El 

DA 

44 

43 

23 

E5 

IE 

0459 

16546 

IC 

76 

37 

2A 

30 

34 

37 

29 

01B7 

16714 

6F 

CD 

CB 

43 

Dl 

48 

D9 

36 

0472 

16554 

OE 

00 

00 

00 

00 

IC 

80 

80 

012A 

16722 

12 

E5 

3E 

F7 

DB 

FE 

57 

3E 

049A 

16562 

B8 

BA 

B5 

AA 

B7 

80 

96 

80 

051E 

16730 

EF 

DB 

FE 

BA 

1 1 

21 

00 

20 

03D4 

16570 

A7 

Bl 

AE 

B9 

BF 

AA 

B7 

80 

055F 

16738 

2F 

1F 

38 

3A 

23 

7E 

FE 

08 

0267 

16578 

80 

9D 

76 

21 

EB 

42 

22 

OC 

O 3 OF 

16746 

20 

OA 

06 

96 

36 

16 

10 

FC 

021E 

16586 

40 

3E 

FD 

DB 

FE 

1F 

38 

F9 

04A4 

16754 

36 

08 

18 

FO 

FE 

76 

28 

26 

0308 

16594 

11 

5C 

40 

21 

82 

40 

01 

43 

01D4 

16762 

36 

08 

El 

D9 

OE 

03 

FE 

9F 

03A6 

16602 

00 

ED 

BO 

31 

5C 

40 

AF 

08 

0321 

16770 

28 

OB 

OE 

OA 

38 

07 

06 

OA 

009A 

16610 

ED 

73 

OC 

40 

C5 

1 1 

EB 

43 

03B0 

16778 

CD 

A7 

43 

42 

4B 

D9 

18 

11 

0346 

16618 

21 

EA 

42 

01 

F6 

01 

ED 

B8 

03EA 

16786 

36 

08 

30 

02 

19 

19 

A7 

ED 

0236 

16626 

13 

EB 

E9 

01 

76 

OE 

2B 

71 

0308 

16794 

52 

CB 

7E 

20 

01 

E3 

El 

36 

03B6 

16634 

10 

FC 

48 

C5 

C5 

21 

00 

99 

0398 

16802 

17 

E5 

01 

OC 

00 

10 

FE 

OD 

0224 

16642 

22 

34 

40 

D9 

CI 

11 

00 

00 

0241 

16810 

20 

FB 

21 

CO 

40 

3E 

17 

06 

0297 


76 
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Mini-Action 


16818 

08 

23 

E5 

CB 

76 

20 

4E 

CB 

038A 

17042 

37 

2A 

30 

34 

37 

29 

OD 

OD 

013F 

16826 

7E 

20 

06 

19 

10 

F9 

El 

18 

02BF 

17050 

00 

2C 

26 

32 

2A 

00 

00 

34 

00E2 

16834 

EE 

CB 

7E 

28 

05 

2B 

BE 

28 

0375 

17058 

3B 

2A 

37 

00 

21 

5C 

40 

23 

017C 

16842 

22 

23 

19 

10 

F4 

El 

E5 

06 

032E 

17066 

7E 

FE 

76 

28 

FA 

FE 

01 

28 

043B 

16850 

08 

CB 

7E 

28 

10 

7E 

2B 

CB 

02FD 

17074 

06 

17 

3F 

1F 

77 

18 

FO 

10 

020A 

16858 

5E 

20 

06 

FE 

9F 

20 

OC 

18 

0265 

17082 

EB 

C9 

2A 

58 

40 

09 

CB 

7C 

03C6 

16866 

01 

77 

23 

36 

08 

19 

10 

E9 

01EB 

17090 

28 

03 

21 

00 

00 

22 

58 

40 

0106 

16874 

El 

18 

C2 

23 

E3 

06 

32 

CD 

03C6 

17098 

01 

E8 

03 

18 

03 

01 

64 

00 

016C 

16882 

A7 

43 

El 

CB 

56 

El 

D9 

01 

04A7 

17106 

3E 

1B 

3C 

A7 

ED 

42 

30 

FA 

0395 

16890 

9C 

FF 

20 

06 

ED 

62 

ED 

52 

044F 

17114 

09 

12 

13 

B9 

CB 

40 

20 

ED 

02FF 

16898 

E5 

CI 

C3 

08 

42 

El 

D9 

7A 

04E7 

17122 

OE 

OA 

38 

EC 

3E 

IC 

85 

12 

022D 

16906 

A7 

3E 

FF 

20 

01 

7B 

D9 

10 

0369 

17130 

C9 

76 

76 

76 

76 

76 

76 

76 

0403 

16914 

FE 

C6 

OA 

30 

FA 

ED 

5F 

E6 

052A 

17138 

76 

76 

76 

76 

97 

97 

B8 

BA 

0478 

16922 

1F 

FE 

08 

El 

D2 

2A 

42 

E5 

0429 

17146 

B5 

AA 

B7 

96 

A7 

Bl 

AE 

B9 

056b 

16930 

3C 

21 

BE 

40 

19 

3D 

20 

FC 

02CD 

17154 

BF 

AA 

B7 

97 

97 

B8 

BA 

B5 

0575 

16938 

3A 

34 

40 

E6 

OF 

20 

04 

36 

01 FD 

17162 

AA 

B7 

96 

A7 

Bl 

AE 

B9 

BF 

0575 

16946 

BB 

18 

OA 

FE 

04 

30 

04 

36 

0249 

17170 

AA 

B7 

97 

97 

76 

97 

38 

39 

040D 

16954 

93 

18 

02 

36 

9F 

El 

C3 

2A 

0350 

17178 

2A 

3A 

2A 

37 

OE 

IC 

1A 

ID 

0126 

16962 

42 

CI 

El 

E5 

A7 

ED 

42 

30 

04CF 

17186 

00 

38 

35 

2E 

2A 

31 

OE 

26 

012A 

16970 

OC 

El 

C5 

IE 

AA 

01 

OA 

00 

0285 

17194 

1A 

35 

00 

2B 

2E 

37 

2A 

OE 

0117 

16978 

21 

91 

43 

ED 

BO 

El 

E5 

IE 

0476 

17202 

IC 

15 

ID 

00 

97 

76 

97 

97 

0289 

16986 

85 

CD 

CB 

43 

OE 

OC 

21 

9B 

0336 

17210 

97 

90 

A8 

91 

9D 

A5 

A4 

9F 

04E5 

16994 

43 

11 

D2 

41 

ED 

BO 

11 

9D 

03B2 

17218 

80 

AD 

9B 

A9 

BA 

B7 

B8 

A8 

0542 

17002 

40 

21 

A6 

42 

36 

OC 

3E 

FD 

02C6 

17226 

AD 

80 

80 

BC 

AA 

AE 

A9 

AA 

0514 

17010 

DB 

FE 

10 

FA 

1F 

30 

OC 

36 

0374 

17234 

B3 

80 

80 

97 

97 

97 

76 

76 

0464 

17018 

06 

3E 

DF 

DB 

FE 

10 

FA 

CB 

04D1 

17242 

76 

76 

76 

76 

76 

76 

76 

76 

0 3B0 

17026 

47 

20 

E9 

EB 

36 

9D 

30 

02 

0340 

17250 

76 

76 

00 

00 

00 

00 

00 

00 

OOEC 

17034 

36 

9E 

C3 

FD 

41 

00 

OD 

OD 

02EF 












Der weiße ZX-ßl Hai 


Rechner; ZX-81 
Programmname: U-Boot 
Programmlänge: 6700 Bytes 
Programmiersprache; BASIC 
Zubehör; 16kByte-Erweiterung 

Schlüpfen Sie in die Rolle eines U- 
Boot Kapitäns! Ihre Aufgabe besteht 
darin, möglichst viele der Frach¬ 
ter, die Ihren Weg kreuzen, zu 
versenken. Dazu stehen Ihnen 50 
Torpedos zur Verfügung, die Sie 
allerdings nicht allzu leichtfertig 
vergeuden sollten, denn Sie könnten 
diese auch zu Ihrer Verteidigung 
benötigen. Schlachtschiffen, dem 
Begleitschutz der Frachter, können 
Sie sich noch mit etwas G-lück er¬ 
wehren, wenn jedoch Bomber am Hori¬ 
zont auftauchen, hilft Ihnen nur 
noch die schnelle Flucht! 

Nach der Eingabe der BASIC-Zeilen 
wird das Programm mit RUN gestar¬ 
tet. Jens Evers 


■15000-T-FRflCHTER IN SICHT. 
BEFEHL? 



FRACHTER UERSENKT 



7700 TONNEN UER5ENKT 
BEFEHL? 
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Mini-Action 




1 REM Ü-BOOT 

2 REM EUER CHIP SPECIAL 

3 REM VON JENS EVERS 

4 LET S2=0 

5 LET S1=fij 

6 LET ZAEHLER=1 

7 LET INSGESAMT=IÖ 

8 DIM P(lfij) 

9 LET T=0 

10 LET X=50 

11 CLS 

15 GOSUB 3000 

16 CLS 

20 PRINT '»SIE SIND DER KAPITAEN EIN 
ES{5»<SPC>}ü-BOOTES MIT DEN FOLG 
ENDEN{ 6 »<SPC>}BEFEHLEN:{23«<SPC> 
}1.S (SEER0HR){19»<SPC>}2.T (TOR 
PEDO){19*<SPC>}3.F (FLUTEN- BEI 
GEFAHR){8»<SPC>}IHR ERSTE BEFEHL 
LAUTET S.» 

25 PRINT AT 10,0 ;»* [BEACHTE] ; BOMBER 

KOENNEN NICHT MIT TORPEDOS ZE 
RSTOERT WERDEN WOHL ABER ZERST 
OBRER.WENN SIE EINEN UNLOGISCH 
EN BEFEHL GEBEN SO WIRD IHNEN D 
AS KOMMANDO ENT- ZOGEN.*' 

26 PRINT »'ES KOENNEN AUF EINEN FRAG 
HTER ZWEIMAL HINTEREINANDER TO 
RPEDOS ABGEFEUERT WERDEN." 

30 INPUT A$ 

40 CLS 

80 IF A$='»S" THEN GOTO 140 
100 CLS 

110 PRINT AT 0,0;"SIE SIND EIN UNFA 
EHIGER KAPITAEN UND HABEN DESSH 
ALB DAS KOMMANDO VERLOREN." 

130 GOTO 5000 

140 LET Z=INT (RND »100) 

150 IF Z<=20 THEN GOTO 500 
170 IF Z>90 AND Z<=100 THEN GOTO 60 
0 

180 IF Z<=50 AND Z>20 THEN LET Y=(I 
NT (RND »100)+1)»1000 
190 IF Z<=90 AND Z>50 THEN LET Y=(l 
NT (RND »100)+1)»100 
200 PRINT AT 0,0;Y;"-T-FRACHTER IN 
SICHT.{8»<SPC>}BEFEHL?{42»<SPC> 
}{85»<SPC>}[ ]{12»<SPC>}{17»<S 


PC>}<<8>>[ ]t28»<SPC>}[{12»<SP 

C>}]<<7>>{19»<SPC>1<<2>>[{10«<S 
PO} ]«1>>{7*^<SPC>}{99»<SPC>} (4 
3»<SPC>}" 

210 INPUT B$ 

230 IF B$=»»S" THEN GOTO 135 
235 IF B$="T" THEN GOTO 250 
240 GOTO 110 
250 LET M=2 

255 PRINT AT 0,0;"SIE HABEN ";X;" T 
ORPEDOS.{10»<SPC>}WIEVIELE WOLL 
EN SIE ABSCHIESSEN?{33*<SPC>}»' 

260 INPUT V 

270 LET X=X-V 

272 IF X<0 THEN GOTO 1110 

280 FOR N=1 TO V 

290 IF RND <=0.25 THEN GOTO 315 

300 NEXT N 

305 PRINT AT 0,0;"DANEBEN.BEFEHL?{8 
3»<SPC>}" 

306 LET M=M-1 

307 IF M=0 THEN GOTO 1130 
310 GOTO 330 

315 CLS 

316 PRINT «FRACHTER VERSENKT» 

317 GOSUB 2020 
320 LET T=T+Y 

324 PRINT AT 15,0;«";T;" TONNEN VE 
R5ENKT" 

325 PRINT "BEFEHL?" 

326 GOTO 30 
330 INPUT C$ 

340 IF C$='»S" THEN GOTO 135 
350 IF C$="T" THEN GOTO 255 
360 GOTO 110 

500 PRINT AT 0,0;"ACHTUNG.{4«<SPC>} 
ZERSTOERER IN SICHT.BEFEHL?{41» 
<SPC>}{65»<SPC>}<<4W>>{29«<SPC> 
}<<£>>[ ]<<4>>i25»<SPC>}<<G>> 

<<G»[{4»<SPC>} ]<<W>> <<G>>{21» 
<SPC>}[{12»<SPC>}]<<31>>{18»<SP 
C>}<<R>>[{9»<SPC>} ]<<3»{97»<S 
PC>}{48»<SPC>}" 

510 INPUT E$ 

520 IF E$<>"F« AND E$<>»'T»» THEN GOT 
0 1020 

521 IF E$=»'F" THEN GOTO 530 


525 GOTO 1170 
530 RAND 0 
540 LET S=RND 

550 IF S<=0.35 THEN GOTO 1040 
560 IF S>0.35 THEN GOTO 1060 
590 STOP 

600 PRINT AT 0,0;"ACHTUNG»BOMBER IM 
ANFLUG.{7«<SPC>}BEFEHL?{41«<SP 
C>}{91»<SPC>}<<YDT>>{5»<SPC>}{2 
0»<SPC>}<<{5»S}>>[ ]<<{5»S}>>{2 
5»<SPC>}<<T>> <<Y>>140»<SPC>}{4 
3»<SPC>}'»{25»<SPC>} 

610 INPUT E$ 

615 CLS 

620 IF E$<>"F" THEN GOTO 1020 
630 GOTO 530 

1020 PRINT AT 0,0;"SIE WURDEN VERSE 
NKT WEIL SIE{4»<SPC>}NICHT DEN 
NOTWENDIGEN BEFEHL{4»<SPC>}GE 
GEBEN HABEN.MEIN HERZLICHES 
BEILEID."{4»<SPC>} 

1025 GOSUB 2020 
1030 GOTO 5000 

1040 PRINT AT 0,0;»»SIE WURDEN LEIDE 
R getroffen!5»<SPC>}UND VERSEN 
KT.RUHEN SIE SCHOEN AUF DEM 
MEERESGRUND! 46»<SPC>}»» 

1045 GOSUB 2020 
1050 GOTO 5000 

1060 PRINT AT 0,0;"SIE HABEN DEN AN 
GRIFF GLUECKLICH UEBERSTANDEN. 
BEFEHL?!27»<SPC>}!64»<SPC>}<<Q 
>>[ ]!29»<SPC>}<<Q>>[ ]«GGG> 
>!21»<SPC>}<<2>>[!12»<SPC>}]<< 
3>>!20»<SPC>}<<!10»7}1>>!31*<S 
, ^ PO} !99»<SPC>} !9»<SPC>}" 

1070 GOTO 
1110 CLS 

1115 PRINT "SIE HABEN LEIDER NICHT 
MEHR!5»<SPC>}GENUEGEND TORPEDO 
S UND MUESSEN DESSHALB IN DEN 
HAFEN ZURUECK." 

1120 GOTO 5000 
1130 CLS 

1135 PRINT "IHR SCHUSS GING LEIDER 
DANEBEN. FUER EINEN WEITEREN T 
ORPEDOAB - SCHUSS IST DER FRAC 
HTER BEREITS ZU WEIT WEG.GEBE 
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Mini-Action 


N SIE DESSHALB DEN BEFEHL S.« 
1140 GOTO 30 

1170 PRINT AT 0,0;«SIE HABEN »;X;« 
TORPEDOS.{7»<SPC>}WIEVIELE WOL 
LEN SIE ABSCHIESSEN?{35*<SPC>} 

it 

1180 INPÜT R 

1190 LET X=X-R 

1200 IF X<0 TUEN GOTO 2000 

1215 FOR L=1 TO R 

1230 IF RND <=0.1 THEN GOTO 1300 

1235 NEXT L 

1240 PRINT AT 0,0;"SIE HABEN LEIDER 
NICHT GETROFFENIHR NAECHSTERB 
EFEHL IST ALSO "*'F"". {48»<SPC> 
)" 

1250 INPUT 1$ 

1260 IF I$<>"F'' THEN GOTO 1020 
1270 GOTO 530 

1300 PRINT AT 0,0:«SIE HABEN DIE ZE 
RSTOERER VER- SENKT.IHR NAEC 
HSTER BEFEHL{6»<SPC>}LAUTET NA 
TÜELICH S.{46«<SPC>}" 

1305 GOSUB 2020 
1310 GOTO 30 
2000 CLS 

2005 PRINT "DA SIE NICHT GENÜEGEND 
TORPEDOS HATTEN WURDEN SIE VER 
SENKT" 

2010 GOTO 5000 

2020 PRINT AT 4 ,0 { 10»<SPC>) «G4» 

«1»{25*<SPC>)«414» «51» 
«1R87»{21«<SPC>}«4G4555W82 
4G>>{23*<SPC>}<<54W44WQ>>{25»< 
SPC>)«W4» «W» [ ]«EQ77»{ 
20»<SPC>)«42» «WG8Q>>[ ]«8 
G2>>{22«<SPC>)«8G» <<8»[{4* 
<SPC>}]«5>>{27*<SPC>)[ ]«HH> 
>[ ]{28»<SPC>)[ ]«HH»[ ]{6*< 
SPC>){22»<SPC>}«2771>>{11»<SP 
C>}" 


2030 RETURN 

3000 REM [ALLEINE-ODER ZU ZWEIT 1 
3010 PRINT "[U-BOOT]"{4*,) 

3020 PRINT "ALS ERSTES MUESSEN SIE 
ANGEBEN OB SIE ZU ZWEIT ODER 
ALLEINE{4»<SPC>}SPIELEN WOLLEN 
: 

3030 PRINT 

3040 PRINT "ALLEINE- EINGABE VON A 
{9*<SPC>)ZO ZWEIT- (IMMER ABWE 
CHSELND){13*<SPC>}EINGABE VON 
Z" 

3050 INPUT Z4 
3060 CLS 

3065 IF Z$="Z" THEN GOTO 3100 
3070 PRINT "SIE HABEN INSGESAMT 10 
SPIELE" 

3080 PRINT AT 20,0J"ANY KEY TO BEGI 
N" 

3090 IF INKEY$="" THEN GOTO 3090 
3095 RETURN 

3100 PRINT "EINGABE DER ZWEI NAMENi 
10*<SPC>)(NACHEINANDER)" 

3110 INPUT N$ 

3115 INPÜT M$ 

3120 CLS 

3125 PRINT N$;" FAENGT AN" 

3130 PRINT 

3140 PRINT "IHR HABT ZUSAMMEN 10 SP 
lELE UND SPIELT IMMER ABWECHSE 
LND" 

3150 GOTO 3080 

5000 REM [PUNKTETABELLE] 

5010 PAUSE 250 
5020 CLS 

5030 IF Z$="Z« THEN GOTO 6000 
5040 LET P(ZAEHLER)=T 
5045 LET INSGESAMT=INSOESAMT+P(ZAEH 
LER) 

5050 FOR N=1 TO ZAEHLER 

5060 PRINT N;".SPIEL: ";P(N);" T V 


ERSENKT" 

5070 NEXT N 
5080 PRINT 

5090 PRINT "INSGESAMT: "INSGESAMT; 
" T VERSENKT" 

5100 LET ZAEHLER=ZAEHLER+1 
5110 IF ZAEHLER>10 THEN GOTO 5200 
5120 PRINT 

5130 PRINT "ANY KEY TO START FOR T 
HE NEXT PLAY" 

5140 IF INKEY$="" THEN GOTO 5140 

5145 CLS 

5146 LET X=50 

5147 LET T=0 
5150 GOTO 140 
5200 PRINT 

5210 PRINT "ANY KEY - NOCHEINMAL 10 
SPIELE" 

5220 IF INKEY$="" THEN GOTO 5220 
5230 RUN 

6000 LET P(ZAEHLER)=T 
6010 PRINT "{5»<SPC>)";N$,"{4«<SPC> 
)";M$ 

6015 PRINT 

6020 FOR N=1 TO ZAEHLER 
6030 PRINT n;".) ";p(n);" pkt", 

6040 NEXT N 

6050 IF ZAEHLER/20INT (ZAEHLER/2) 
THEN GOTO 6100 
6055 LET S2=S2+P(ZAEHLER) 

6060 PRINT 

6061 PRINT 

6065 FOR N=0 TO 31 

6066 PRINT »«7»": 

6067 NEXT N 

6070 PRINT ;" ";Sl;« PKT"," ";S2; 

" PKT" 

6080 GOTO 5100 

6100 LET S1=S1+P(ZAEHLER) 

6110 GOTO 6060 


Scherfe hüten 


Rechner; ZX-81 
Programmname: Treibjagd 
Programmlänge; 1000 Bytes 
Programmiersprache: Assembler 
Zubehör; 1ökByte-Erweiterung 

Sie sind ein Schäfer. In Ihre 
Schafherde hat sich ein Wolf einge¬ 
schlichen. Wer hat das schon gerne? 
Also bleibt Ihnen nichts anderes 
übrig, als sich in das Getümmel zu 
stürzen, und den Wolf - durch ein 
invertiertes "X" dargestellt - zu 
vertreiben. Das ist leichter ge¬ 
sagt, als getan, denn Ihnen ver¬ 
sperren einige Hindernisse den Weg. 
Um den Wolf zu fassen, muß er an 
den Rand gedrängt werden. Dazu 
stellen Sie sich ihm mit Ihrer 
Spielfigur, einem in den Weg. 
Haben Sie dies geschafft, werden 
Ihnen doppelt so viele Punkte, wie 
der Zeitzähler anzeigt gutgeschrie¬ 
ben. Doch denken Sie nicht, damit 


wäre die Arbeit schon getan! 

Ihre Figur wird mit den Tasten; 
1=links; 2=auf; 9=ab; 0=rechts 
gesteuert. Mit der Taste *'P" star¬ 
ten Sie das Spiel, und wenn Sie 
eine schnellere Gangart wünschen 
betätigen Sie die Taste "Q". 

Zur Programmeingabe 

Gehen Sie bitte wie in dem Artikel; 
"So geben Sie Maschinenprogramme 
ein” beschrieben vor. 

Liste der Variablen: 

A=3*155 
B=223 
C=1 
D=118 

E=165U bis 16991 
Start; RAND USR 16575 

Helmut Dursch 
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Mini-Action 


1 REM 

478 

/tes reserviert 

! 


16738 

19 

3E 

08 

BE 

20 

02 

E3 

77 

0299 

2 SAVE " 

T[R 

]" 







16746 

El 

36 

17 

E5 

CD 

Dl 

43 

F5 

04E9 

3 SLOW 









16754 

11 

71 

40 

CD 

E2 

43 

Fl 

38 

03DD 











16762 

77 

D9 

OD 

79 

D9 

E6 

03 

20 

03B8 

16514 

76 

35 

3A 

33 

30 

39 

2A 

OE 

01B9 

16770 

B2 

El 

E3 

E5 

ED 

5F 

01 

08 

04B0 

16522 

00 

00 

00 

00 

IC 

17 

17 

17 

0061 

16778 

80 

71 

E6 

03 

11 

18 

00 

28 

022B 

16530 

3F 

2A 

2E 

39 

OE 

00 

00 

IC 

OOFA 

16786 

26 

3D 

28 

17 

3D 

28 

OA 

El 

01F2 

16538 

76 

37 

2A 

30 

34 

37 

29 

OE 

01A9 

16794 

E5 

19 

7E 

B9 

28 

23 

B8 

28 

0360 

16546 

00 

00 

00 

00 

IC 

97 

B9 

B7 

0223 

16802 

20 

El 

E5 

23 

7E 

B9 

28 

19 

0381 

16554 

AA 

AE 

A7 

AF 

A6 

AC 

A9 

97 

0540 

16810 

B8 

28 

16 

El 

E5 

A7 

ED 

52 

04A2 

16562 

76 

2A 

58 

40 

09 

22 

58 

40 

OlFB 

16818 

7E 

B9 

28 

OD 

B8 

28 

OA 

El 

0337 

16570 

OE 

E8 

C3 

DE 

43 

11 

5C 

40 

0387 

16826 

E5 

2B 

7E 

B9 

28 

03 

B8 

20 

034A 

16578 

21 

82 

40 

01 

31 

00 

ED 

BO 

02B2 

16834 

D6 

Dl 

36 

BD 

E3 

07 

D2 

D5 

052B 

16586 

58 

OE 

OC 

ED 

BO 

31 

5C 

40 

02DC 

16842 

42 

E3 

CD 

Dl 

43 

E5 

06 

28 

0419 

16594 

AF 

08 

ED 

73 

OC 

40 

C5 

11 

0339 

16850 

21 

A4 

40 

23 

7E 

FE 

76 

28 

0342 

16602 

FD 

43 

01 

78 

01 

21 

5E 

42 

027B 

16858 

FA 

FE 

BD 

28 

FA 

FE 

11 

28 

050E 

16610 

ED 

B8 

13 

EB 

E9 

2B 

36 

76 

0463 

16866 

06 

17 

3F 

IF 

77 

18 

EC 

10 

0206 

16618 

11 

08 

15 

01 

80 

15 

2B 

36 

0125 

16874 

E7 

El 

29 

44 

4D 

C3 

C7 

42 

044E 

16626 

76 

2B 

71 

7A 

FE 

01 

28 

07 

02BA 

16882 

El 

El 

CI 

El 

A7 

ED 

42 

30 

056a 

16634 

B8 

28 

04 

1F 

38 

07 

4B 

2B 

01B8 

16890 

03 

21 

00 

00 

09 

E5 

IE 

7C 

01AC 

16642 

71 

10 

FC 

18 

10 

3E 

06 

06 

01EF 

16898 

CD 

07 

40 

OE 

09 

IE 

C4 

21 

022E 

16650 

05 

2B 

73 

2B 

77 

2B 

77 

2B 

0212 

16906 

C8 

43 

ED 

BO 

21 

IF 

43 

3E 

0369 

16658 

77 

10 

F6 

2B 

73 

2B 

36 

80 

02FC 

16914 

DF 

DB 

FE 

IF 

38 

04 

36 

03 

034C 

16666 

15 

20 

DO 

48 

C5 

2E 

A6 

E5 

03CB 

16922 

18 

09 

3E 

FB 

DB 

FE 

IF 

38 

038A 

16674 

21 

20 

99 

22 

34 

40 

21 

AO 

0231 

16930 

EE 

36 

01 

21 

86 

42 

E9 

2C 

0323 

16682 

41 

36 

BD 

E3 

E5 

11 

64 

40 

03B1 

16938 

26 

32 

2A 

00 

34 

3B 

2A 

37 

0152 

16690 

CD 

00 

40 

El 

E5 

11 

18 

00 

02FC 

16946 

2A 

34 

40 

29 

29 

29 

00 

6C 

0185 

16698 

OE 

14 

10 

FE 

OD 

20 

FB 

3E 

0296 

16954 

26 

00 

DO 

6C 

C9 

06 

03 

18 

024C 

16706 

F7 

DB 

FE 

1F 

30 

OF 

IF 

30 

037D 

16962 

03 

01 

64 

00 

3E 

1B 

3C 

A7 

01 A4 

16714 

OF 

3E 

EF 

DB 

FE 

1F 

30 

OD 

0371 

16970 

ED 

42 

30 

FA 

09 

12 

13 

B9 

0340 

16722 

1F 

30 

OD 

18 

OC 

2B 

18 

09 

OOCC 

16978 

CB 

40 

20 

ED 

OE 

OA 

38 

EC 

0354 

16730 

A7 

ED 

52 

18 

04 

23 

18 

01 

023E 

16986 

3E 

IC 

85 

12 

C9 

76 

00 

00 

0230 


Überiebenslraimiig 


Rechner: ZX-81 
Programmname: Space 
Programmlänge: 8600 Bytes 
Programmiersprache: BASIC 
Zubehör: 16kByte-Erweiterung 


In diesem Action-Spiel gilt es, 
sich einiger schießwütiger Gegner 
zu entledigen. Schauplatz dieses 
"Kampfes der Giganten” ist das 
Weltall, bekanntlich der Tummel¬ 
platz so manch seltsamer Wesen. 
Vergessen Sie Jedoch nicht auf 
Ihren Spritverbrauch, und die Ihnen 
zur Verfügung stehende Zeit zu 
achten, sonst werden Sie das Opfer 
einer Bruchlandung! 

Die Steuerung Ihres Raumschiffes 
erfolgt über die Cursortasten. Nach 


der Eingabe des BASIC-Listings wird 
das Spiel mit RUN gestartet. Vor 
dem Spielbeginn begrüßt Sie übri¬ 
gens eine nette Ansagerin. Palls 
Sie auf eine solche Begrüßung kei¬ 
nen Wert legen, oder falls Sie sich 
ein bißchen Arbeit beim Eingeben 
ersparen möchten, können Sie die 
Zeilen von 1 bis 6600 weglassen. 

Jens Evers 
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Mini-Acrion 


1 REM SPACE 

2 REM FUER CHIP SPECIAL 

3 REM VON JENS EVERS 

4 REM 

6000 REM [ANSAGERIN{14«<SPC>}] 

6005 LET N=1 
6010 DIM F$(6,128) 

6020 LET F$( 1)=''{7»<SPC>}«8»[ ]< 

<4>> «GGG>> <<E»[ ]«5> 

>{ 15*<SPC>}«8»[ ]«W» «7 

G» «G7>> «Q»[ 3«5»{15» 

<SPC>}«8»[ 3«W» «271» 

«Q>>[ ]«5>>{15*<SPC>}«8 

»[ {4»<SPC>} ]<<W>>{5»<SPC>}«Q 
»[{4»<SPC>}]«5»{8»<SPC>}" 
6030 LET F$(2)="{7*<SPC>}«8»[ ]< 

<4»{ 9*<SPC>}«E»[ ]«5>>{15 

•<SPC>}«8»[ ]«W» «7»[ 

]«7» «Q»[ ]«5>>{15»<S 

PC>}<<8>>[ ]<<W>> <<7>> 

«Q>>[ ]«5>>{ 15«<SPC>}«8» 

[{4*<SPC>} ]<<W»{5*<SPC>}«Q» 
[{4«<SPC>}]«5»{ 8»<SPC>}" 

6050 LET F$(4)="{7*<SPC>}«8»[ 3< 

<4>> «EG4>> «E»[ 3«5> 

>{ 15»<SPC>}«8»[ 3<<W>> «E 

3» «R4» «Q>>[ 3«5»{15« 

<SPC>}«8»[ 3«W>> «RG3» 

«Q>>[ 3«5>>{ 15*<SPC>}«8 

»[ {4»<SPC>} 3<<W>>{5»<SPC>}«Q 
»[{4*<SPC>}3«5»{ 8»<SPC>}” 
6060 LET F$(5)="{7*<SPC>}«8»[ 3< 

<4>> «GGG» <<E»[ 3«5> 

>{ 15«<SPC>}«8»[ 3«W» «7 

GGG7>> «Q»[ 3«5>>{ 15*<SPC 

>}«8»[ 3<<W>> <<271» << 

Q»[ 3«5>>{ 15*<SPC>}«8»[{ 

4«<SPC>} 3<<W»{5«<SPC>}«Q»[{ 
4«<SPC>}3«5»{8*<SPC>}" 

6065 LET F$(3)="{7*<SPC>}«8»[ 3< 

<4>> <<GGG>> <<E>>[ 3«5> 

>{ 15*<SPC>}«8»[ 3«W>> «7 

>>[ 3«G>>[ 3«7>> «Q>>[ 3< 

<5»{ 15*<SPC>}«8»[ 3<<W>> 

«271» «Q»[ 3«5>>{15»< 

SPC>}«8»[{4»<SPC>}3<<W»{5«< 
SPC>}«Q>>[{4»<SPC>}3«5»{ 8*< 
SPO}" 

6070 LET F$(6)="{7*<SPC>}«8»[ 3< 

<4>> <<GGG>> <<E>>[ 3«5> 

>{ 15*<SPC>}«8»[ 3«W» «7 

>>[ 3«G»[ 3«7» «Q»[ 3< 

<5»{ 15*<SPC>}«8»[ 3«W>> 

<<271>> «Q>>[ 3«5>>{15*< 

SPC>}«8»[{4«<SPC>} 3<<W»{5«< 
SPC>}«Q»[{4»<SPC>}3«5»{ 8»< 
SPO}" 


6080 

6090 

6100 PRINT AT 1,0;G$ 

6105 FOR N=1 TO 210 

6110 PRINT AT 0,0;S$(N TO N+31) 

6115 PRINT AT 12,0;F$(INT (RND «6)+ 

1 ) 

6140 NEXT N 

6600 REM [iNSTRÜCTIONSi11*<SPC>}3 
6610 CLS 

6620 PRINT "[ SPACE 3"{4«,} 

6630 PRINT "SPIELWEISE;"{4«,} 

6640 PRINT "ALLEINE (EINGABE VON A) 
{9«<SPC>}ZU ZWEIT:IMMER ABWECH 
SELND{6«<SPC>}(EINGABE VON Z)" 
6650 INPUT 1$ 

6652 CLS 

6655 IF I$="A" THEN GOTO 6700 
6660 PRINT "EINGABE DER NAMEN (NACH 
EINANDER)" 

6670 INPÜT N$ 

6680 INPÜT M$ 

6690 CLS 

6700 PRINT "[ SPACE 3 INSTRUCTION 
{10»<SPC>}",,, 

6710 PRINT "ZIEL: SOVEILE GEGNER WI 
E{8*<SPC>}MOEGLICH VERNICHTEN! 
12*<SPC>}",,, 

6720 PRINT "BEACHTE: VERSUCHE MIT M 
OEGLICHSTWENIG SPRIT UND ZEIT 
AÜSZUKOMMENVERSÜCHE NICHT DANE 
BN ZU{8*<SPC>}SCHIESSEN" 

6730 PRINT "BEFEHLE(BEWEGUNGSRICHTU 
NG) :{4«<SPC>}5- LINKS!8*<SPC> 
}8- RCHTS!8»<SPC>}6- UNTEN!8»< 
SPC>}7- 0BEN!8«<SPC>}",,, 

6735 PRINT "0- FEUERdN PFEILRICHTU 
NG:[<3 )" 

6738 PRINT 

6740 IF I$="Z" THEN PRINT N$;" BEGI 
NNT" 

6750 PRINT 

6760 PRINT "ANY KEY TO START" 

6770 IF INKEY$="" THEN GOTO 6770 

6800 REM [VARIABLENBESTIMMÜNG!5»<SP 
C>}3 

6801 LET V=0 

6802 LET M=0 
6805 DIM A$(11) 

6810 DIM X(11) 

6820 DIM Y(11) 

6825 DIM P(10) 

6826 LET INSGESAMT=0 
6828 LET ZAEHLER=1 
6830 LET Y$="[>3" 

6850 LET X$="[<3" 

6860 LET SCORE=0 
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Mini-Action 


6861 LET D=0 

6862 LET X(11)=10 

6864 LET Y(11)=15 

6865 LET F=50 
6868 LET T=50 
6870 FOR N=1 TO 8 
6880 LET A$(N)="[=]" 

6890 NEXT N 

6895 LET A$(11)=Y$ 

6900 LET Z=RND 
6910 IF Z>.8 THEN GOTO 7000 
6920 IF Z>.6 THEN GOTO 7100 
6930 IF Z>.4 THEN GOTO 7200 
6940 GOTO 7500 

7000 REM [GEFECHTSFORMATION{6*<SPC> 
}3{9*<SPC>}[ (GERADE) ] 

7028 FOR N=1 TO 7STEP 2 

7029 LET Y(N)=1 
7032 NEXT N 

7035 FOR N=2 TO 8STEP 2 
7040 LET Y(N)=30 
7060 NEXT N 
7062 LET X(1)=3 

7064 LET X(2)=9 

7065 LET X(3)=11 

7066 LET X(4)=17 
7068 LET X(5)=7 
7070 LET X(6)=13 
7072 LET X(7)=15 
7075 LET X(8)=5 
7080 GOTO 7600 

7100 REM [GEFECHTSFORMATION{6*<SPC> 
}]{9*<SPC>}[ (VERTEILT) ] 

7130 LET X(1)=7 
7135 LET X(2)=13 
7140 LET X(3)=9 
7145 LET X(4)=11 
7150 LET X(5)=15 
7155 LET X(6)=5 
7160 LET X(7)=3 
7165 LET X(8)=17 
7180 LET Y(1)=15 

7185 LET Y(2)=15 

7186 LET Y(3)=25 

7187 LET Y(4)=5 

7188 LET Y(5)=10 

7189 LET Y(6)=20 

7190 LET Y(7)=1 

7191 LET Y(8)=30 

7199 GOTO 7600 

7200 REM [GEFECHTSFORMATION{6*<SPC> 
}]{9*<SPC>}[ (MITTELGERADE) ] 

7210 FOR N=1 TO 8 
7220 LET Y(N)=15 
7230 NEXT N 
7240 FOR N=1 TO 4 
7260 LET X(N)=N»4-1 


7270 NEXT N 
7280 FOR N=5 TO 8 
7290 LET X(N)=X(N-4)+2 
7300 NEXT N 
7350 GOTO 7600 

7500 REM [GEFECHTSFORMATION{6«<SPC> 
}]{9*<SPC>}[ (ZUFALL) ] 

7505 FOR N=1 TO 8 

7510 LET X(N)=2«N+1 

7520 LET Y(N)=(INT (RND •30)+1) 

7530 NEXT N 

7600 REM [GEFECHTAUFSTELLUNG+{5*<SP . 
C>}UMRANDUNG + ANGABENi12»<SPC 
>}] 

7610 CLS 

7620 PRINT ««3{30*7}R»";AT 21,0;" 

<<W{30»G}Q»" I 

7630 PRINT AT 20,0;"FUEL;";F;AT 20, 
10;"ZEIT:";T 
7800 FOR N=1 TO 8 

7810 PRINT AT X(N),Y(N);A$(N) 1 

7820 NEXT N 

7830 PRINT AT X(11),Y(11);A$(11) 

8000 REM [GEFECHTSABLAUFi9*<SPC>}] i 
8055 LET B=(INT (RND •3))-l [ 

8058 LET A=(INT (RND »3))-1 i 

8068 FOR N=1 TO 10 ' 

8069 IF A$(N)=" " THEN GOTO 8165 

8070 IF X(N)+A>=20 OR X(N)+A<=0 OR 

Y(N)+B<=0 OR Y(N)+B>=31 THEN G , 
OSUB 8600 I 

8074 IF INKEY$<>"" THEN GOSUB 8200 

8075 GOSUB 9000 i 

8080 IF INKEY$<>"" THEN GOSUB 8200 ' 

8090 LET Y(N)=Y(N)+B ’ 

8100 LET X(N)=X(N)+A 

8120 PRINT AT X(N)-A,Y(N)-B;" ";AT 
X(N),Y(N);A$(N) 

8125 IF INKEY$<>"" THEN GOSUB 8200 

8131 GOSUB 9000 

8132 IF INKEY$<>"" THEN GOSUB 8200 i 

8140 LET T=T-1 I 

8150 PRINT AT 20,15;T;" " 

8160 IF T<=0 THEN GOTO 9300 
8165 NEXT N 
8170 GOTO 8000 

8200 REM [BEWEGUNG D. A-JAEGERS ] 

8204 IF INKEY$="0" THEN GOSUB 8400 

8205 PRINT AT X(11),Y(11);" « 

8210 LET X(11)=X(11)+(INKEY$="6« AN 
D X(11)<19)-(INKEY$=«7" AND X( • 
11 )> 1 ) 

8220 LET Y(11)=Y(11)+2«(INKEY$="8" 
AND Y(11)<31)-2»(INKEY$="5" AN 
D Y(11)>0) 

8230 IF Y(11)<=15 THEN LET A$(11)=Y 

$ 
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8240 IF Y(11)>15 THEN LET A$(11)=X$ 
8360 PRINT AT X(11),Y(11);A$(11) 
8370 LET F=F-1 
8380 PRINT AT 20,5;F;" " 

8385 IF F<=0 THEN GOTO 9350 
8390 RETURN 

8400 REM [FEUER DES A-J.{9*<SPC>}] 

8401 LET 0=0 

8405 IF A$(11)=X$ THEN GOTO 8500 
8420 PRINT AT X( 11) ,Y( 11 ) + l ;'• { 15*-} 
";at x(11),y( ii)+i;"{15 *<spc>} 

fl 

8440 FOR 1=1 TO 8 

8450 IF X(11)=X(I) AND Y(I)-Y(11)<1 
6 AND A$(I)<>" " THEN LET 0=1 
8452 NEXT I 

8455 IF OO0 THEN GOTO 8800 
8460 LET D=D+10 
8480 RETURN 

8500 PRINT AT X( 11) ,Y( 11 )-l6 *," {16»- 
}";AT X(11),Y(11)-16;"{16*<SPC 
>}" 

8520 FOR 1=1 TO 8 

8530 IF X(11)=X(I) AND Y(11)-Y(I)<= 
17 AND A$(I)<>” " THEN LET 0=1 
8535 NEXT I 
8540 GOTO 8455 

8600 REM [KOORDINATENKORREKTUR ] 
8605 PRINT AT X(N),Y(N);" " 

8610 IF X(N)+A<=0 THEN LET X(N)=19 
8620 IF X(N)+A>=20 THEN LET X(N)=1 
8630 IF Y(N)+B<=0 THEN LET Y(N)=30 
8640 IF Y(N)+B>=31 THEN LET Y(N)=1 
8650 RETURN 

8800 REM [GEGNER GETROFFEN}7»<SPC>} 

] 

8810 LET A$(0)=” '* 

8820 LET SC0RE=SC0RE+1 

8830 IF SC0RE=8 THEN GOTO 9200 

8840 GOTO 8165 

9000 REM [WAHLLOSES FEUER}8»<SPC>}] 
9005 IF Y(N)>15 THEN GOTO 9060 
9010 PRINT AT X(N),Y(N)+1;"}14*-}"; 

AT X(N),Y(N)+1;"}14*<SPC>}« 
9020 IF X(N)=X(11) AND Y(11)-Y(N)<= 
15 AND Y(11)-Y(N)>=0 THEN GOTO 
9100 

9030 RETURN 

9060 PRINT AT X(N),Y(N)-15;”}14»-}" 
;AT X(N),Y(N)-15;"}14»<SPC>}" 
9080 IF X(N)=X(11) AND Y(N)-Y(11)<= 
15 AND Y(N)-Y(11)>=0 THEN GOTO 
9100 

9090 RETURN 

9100 REM [A-J. WURDE ZERSTOERT ] 
9110 PRINT AT X(11),Y(11);''«T4>>" 
9120 FOR 0=1 TO 20 


9130 NEXT 0 
9140 CLS 

9150 PRINT "IHR ALDERSONJAEGER WURD 
E}8»<SPC>}ZERST0ERT." 

9180 GOTO 9600 

9200 REM [FEIND ZERSTOERT}8»<SPC>}] 
9210 CLS 

9220 PRINT "SIE HABEN DEN GESAMTEN 
FEIND}4»<SPC>}ZERSTOERT" 

9230 GOTO 9600 

9300 REM [ZEIT ABGELAUFEN}8»<SPC>}] 
9310 CLS 

9320 PRINT "DIE VERFUEGBARE ZEIT IS 
T}8*<SPC>}ABGELAUFEN" 

9330 GOTO 9600 

9350 REM [KEIN SPRIT MEHR}8»<SPC>}] 
9355 CLS 

9360 PRINT "DER VERFUEGBARE SPRIT W 
URDE}5»<SPC>}VERBRAUCHT" 

9365 GOTO 9600 

9600 REM [PUNKTE-TABELLE}9»<SPC>}] 

9601 PAUSE 200 

9602 CLS 

9610 IF I$="Z" THEN GOTO 9800 
9615 LET P(ZAEHLER)=INT ((T»SCORE». 
5+F»SCORE».5+SCORE»50-D)/10)»1 
0 

9620 FOR N=1 TO ZAEHLER 

9630 PRINT N;".SPIEL -}4»<SPC>}"; 

P(N);" PUNKTE" 

9635 NEXT N 
9640 PRINT 

9650 LET INSGESAMT=INSGESAMT+P(ZAEH 
LER) 

9655 PRINT "INSGESAMT: ";INSGESAMT; 
" PUNKTE" 

9656 PRINT 

9660 PRINT "DURCHSCHNITTSQUOTE; ";I 
NT ((INSGESAMT/ZAEHLER)/10)»10 
;" PUNKTE" 

9665 PRINT 

9670 LET ZAEHLER=ZAEHLER+1 
9680 IF ZAEHLER=11 THEN GOTO 9750 
9685 PRINT "ANY KEY TO START AGAIN" 
9690 IF INKEY$="" THEN GOTO 9690 
9700 GOTO 6830 

9750 PRINT "ANY KEY-WEITERE 10 SPIE 
LE" 

9760 IF INKEY$="" THEN GOTO 9760 
9770 RUN 

9800 PRINT "}8»<SPC>}";N$,"}5»<SPC> 
}";M$ 

9810 PRINT 

9815 LET P(ZAEHLER)=INT ((T»SCORE». 
5+F«SCORE*.5+SCORE»50-D)/10)»1 
0 

9820 FOR N=1 TO ZAEHLER 
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9830 PRINT N;« .SPIEL:«;P(N) ;''PKTE« , 

9840 NEXT N 
9845 PRINT 

9850 IF ZAEHLER/2=INT (ZAEHLER/2) T 
HEN LET M=M+P(ZAEHLER) 

9855 IF ZAEHLER/20INT (ZAEHLER/2) 


THEN LET V=V+P(ZAEHLER) 

9860 PRINT "SUMMEPKTE"," " 
;M;" PKTE» 

9870 LET ZAEHLER=ZAEHLER+1 
9875 PRINT 
9880 GOTO 9680 


Vorsicht Zcoc 


Rechner; ZX-81 

Programmname; Zax 

Programmlänge; 1000 Bytes 

Programmiersprache; Assembler 

Zubehör; 16kByte-Erweiterung 

Die drei Zaxs, das sind die Be¬ 
fehlshaber mehrer Kolonnen von An¬ 
greifern. Diese Angreifer bewegen 
sich - von einem Zax angetrieben 
auf Sie, den Verteidiger, zu. Ihre 
Aufgabe besteht nun darin, den 
Angriff zu stoppen und den Zaxs das 
Handwerk zu legen. Dazu verfügen 
Sie über ein Geschütz, das sich 
vertikal am linken Bildschirmrand 
steuern läßt. Haben Sie eine an¬ 
greifende Kolonne getroffen, so 
stoppt diese sofort. Doch übernimmt 
tückischerweise ein anderer Zax 
sofort die Kontrolle über die nä¬ 
chste Kolonne. Das Spiel ist zu 
Ende, sobald die Angreifer Ihre 
Verteidigungslinie erreicht haben. 
Für jeden abgeschossenen Angreifer 
erhalten Sie 10 Punkte. 

Punkte-Schlüssel 

Stand dieser Angreifer an der 
Spitze einer Kolonne, so gibt es 


20, wenn noch 2 Zaxs existieren 30 
Punkte. Die beiden ersten getrof¬ 
fenen Zaxs ergeben einhalb mal die 
Zeitanzeige mal 10, der dritte 20 
mal die Zeitanzeige als Punktege¬ 
winn. Die Ihnen zur Verfügung ste¬ 
hende Zeit läuft von 255 bis 0 in 
ca. 165 Sekunden ab. Gewinnen die 
Zaxs, werden Ihnen von den er¬ 
reichten Punkten 10 mal die Rest¬ 
zeit abgezogen. Sollte es Ihnen 
tatsächlich gelingen 9990 Punkte zu 
übertreffen, wird dies in der An¬ 
zeige mit einem A an erster Stelle 
angezeigt. 

Hinweis zur Programmeingabe 

Gehen Sie bitte, wie in dem Arti¬ 
kel; "So geben Sie Maschinenpro¬ 
gramme ein" beschrieben, vor. 

Liste der Variablen; 

A=3*207 
B=123 
C=2 
D=118 

E=16514 bis 17147 
Start: RAND USR 16538 

Helmut Dursch 


1 REM 

634 

Bytes 

reserviert I 



16546 

00 

ED 

BO 

21 

43 

42 

22 

OC 

0271 

2 SAVE 

"ZA[X]" 







16554 

40 

3E 

DF 

DB 

FE 

IF 

38 

F9 

0486 

3 SLOW 









16562 

01 

79 

01 

11 

FD 

43 

21 

5B 

0248 











16570 

40 

F9 

23 

AF 

08 

22 

OC 

40 

0281 











16578 

21 

42 

42 

ED 

B8 

13 

EB 

E9 

0431 











16586 

3E 

08 

11 

93 

17 

01 

04 

11 

0117 

16514 

76 

00 

00 

00 

00 

3F 

2A 

2E 

010D 

16594 

2B 

36 

76 

2B 

77 

2B 

73 

OD 

0224 

16522 

39 

00 

00 

35 

3A 

33 

30 

39 

0144 

16602 

20 

FB 

2B 

77 

10 

FC 

15 

20 

02FE 

16530 

2A 

00 

93 

BF 

A6 

BD 

92 

76 

03E7 

16610 

EC 

36 

12 

2E 

5B 

F9 

C5 

C5 

0440 

16538 

21 

82 

40 

11 

5C 

40 

01 

18 

01A9 

16618 

OB 

ED 

43 

34 

40 

IE 

17 

19 

01 FD 
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16626 

01 

13 

03 

19 

ED 

5F 

19 

81 

0216 

16890 

CD 

DB 

43 

25 

3D 

6F 

ED 

5B 

0404 

16634 

30 

FC 

36 

97 

E5 

10 

F5 

21 

0404 

16898 

59 

40 

19 

CB 

7C 

28 

02 

ED 

0310 

16642 

74 

40 

06 

08 

3E 

EF 

DB 

FE 

03C8 

169Ö6 

62 

01 

96 

40 

CD 

E6 

43 

3E 

036D 

16650 

4F 

3E 

F7 

DB 

FE 

B9 

3E 

08 

045C 

16914 

IC 

03 

02 

3E 

DF 

DB 

FE 

OF 

0326 

16658 

28 

11 

77 

30 

04 

19 

BE 

28 

01E3 

16922 

38 

F9 

21 

85 

42 

E9 

2A 

34 

0360 

16666 

06 

A7 

ED 

52 

BE 

20 

F6 

36 

03F6 

16930 

40 

29 

29 

29 

AF 

6C 

67 

95 

02D2 

16674 

12 

18 

70 

CB 

41 

20 

6C 

E5 

0317 

16938 

C9 

11 

64 

00 

3E 

1B 

3C 

A7 

027A 

16682 

D9 

El 

23 

BE 

20 

07 

36 

16 

030E 

16946 

ED 

52 

30 

FA 

19 

02 

03 

BB 

0342 

16690 

10 

FC 

77 

18 

F5 

CB 

6E 

20 

03E9 

16954 

IE 

OA 

38 

FO 

3E 

IC 

85 

02 

0231 

16698 

57 

CB 

56 

77 

EB 

21 

58 

40 

0393 

16962 

C9 

76 

76 

76 

76 

76 

76 

76 

0403 

16706 

7E 

01 

15 

00 

28 

22 

34 

El 

01F3 

16970 

76 

76 

76 

93 

93 

93 

93 

BF 

046D 

16714 

A7 

ED 

52 

19 

28 

OA 

E3 

A7 

03BB 

16978 

A6 

BD 

92 

92 

93 

93 

BF 

A6 

0512 

16722 

ED 

52 

19 

28 

03 

Dl 

E3 

D5 

040C 

16986 

BD 

92 

92 

93 

93 

BF 

A6 

BD 

0529 

16730 

4F 

CD 

DB 

43 

79 

4D 

CB 

39 

0404 

16994 

92 

92 

93 

93 

BF 

A6 

BD 

92 

04FE 

16738 

CB 

4F 

28 

25 

29 

C3 

BB 

43 

0351 

17002 

92 

92 

92 

76 

BF 

00 

00 

00 

02EB 

16746 

D9 

E5 

D9 

El 

09 

EB 

OE 

01 

047B 

17010 

00 

00 

00 

00 

00 

38 

39 

26 

0097 

16754 

2A 

55 

40 

A7 

ED 

52 

20 

11 

02D6 

17018 

37 

39 

00 

00 

38 

39 

2A 

3A 

0145 

16762 

OC 

A7 

28 

08 

3D 

20 

18 

OC 

0164 

17026 

2A 

37 

00 

00 

38 

28 

2D 

3A 

0128 

16770 

El 

E3 

18 

04 

Dl 

El 

E3 

D5 

054A 

17034 

38 

38 

00 

BF 

76 

A6 

00 

39 

0284 

16778 

E5 

2A 

59 

40 

09 

22 

59 

40 

026C 

17042 

26 

38 

39 

2A 

33 

OE 

00 

OB 

010D 

16786 

D9 

06 

01 

D9 

3A 

58 

40 

06 

0291 

17050 

35 

OB 

00 

00 

00 

OB 

ID 

18 

0080 

16794 

01 

11 

17 

00 

B8 

28 

06 

30 

013F 

17058 

IC 

OB 

00 

00 

00 

OB 

ID 

15 

0064 

16802 

2D 

04 

El 

E3 

E5 

El 

E5 

ED 

058D 

17066 

IC 

OB 

00 

00 

A6 

76 

BD 

38 

0238 

16810 

5F 

OF 

3E 

08 

77 

OE 

04 

30 

016D 

17074 

35 

2E 

2A 

31 

OE 

38 

28 

2D 

0159 

16818 

OC 

OD 

28 

06 

19 

BE 

20 

F9 

0237 

17082 

2E 

2A 

38 

38 

2A 

00 

29 

2E 

0149 

16826 

18 

OF 

E3 

18 

06 

OD 

20 

03 

0158 

17090 

2A 

00 

1F 

00 

3F 

26 

3D 

38 

0123 

16834 

E3 

18 

Fl 

A7 

ED 

52 

BE 

20 

04B0 

17098 

10 

97 

11 

26 

27 

BD 

76 

93 

02CB 

16842 

F4 

36 

97 

E3 

10 

D4 

CD 

DB 

0530 

17 106 

93 

93 

93 

BF 

A6 

BD 

92 

92 

04FF 

16850 

43 

F5 

01 

5D 

40 

CD 

E6 

43 

03CC 

17114 

93 

93 

BF 

A6 

BD 

92 

92 

93 

04FF 

16858 

Fl 

28 

23 

63 

15 

5A 

19 

38 

025F 

17 122 

93 

BF 

A6 

BD 

92 

92 

93 

93 

04FF 

16866 

FD 

D9 

05 

C2 

CI 

42 

D9 

2A 

04A3 

17130 

BF 

A6 

BD 

92 

92 

92 

92 

76 

04E0 

16874 

55 

40 

3E 

93 

06 

15 

D9 

C2 

031C 

17138 

76 

76 

76 

76 

76 

76 

76 

76 

03B0 

16882 

BF 

42 

D9 

2B 

BE 

77 

10 

F6 

0440 

17146 

76 

76 

00 

00 

00 

00 

00 

00 

OOEC 


lilan-Figliler 


Rechner; ZX-81 
Programmname: Titan Fighter 
Programmlänge; 6500 Bytes 
Programmiersprache; Assembler 
Zubehör: l6kByte-Erweiterung 

Drei angriffslustige Offiziere ha¬ 
ben sich zusammen mit ihrem General 
hinter einem Bollwerk verschanzt. 
Da sie sich mal wieder schrecklich 
langweilten, fiel den Vieren nichts 
Besseres ein, als die ihnen unter¬ 
stellten Truppen auf Trab zu brin¬ 
gen, und ein bißchen Budenzauber zu 
veranstalten. Diesem Treiben gilt 
es Einhalt zu gebieten. Nun treten 
Sie in Aktion. Mit einem sich am 
linken Bildrand befindlichen, ver¬ 


tikal zu bewegenden Geschütz können 
Sie die heranstürmenden Kolonnen 
von Angreifern aufhalten. 

Raffinierte Angreifer 

Doch welch Tücke! Kaum ist eine 
Kolonne gestoppt, wächst Ihnen an 
einer anderen Stelle eine neue 
entgegen. Daher ist es ratsam, die 
Kommandierenden auf Eis zu legen. 
Leichter gesagt, als getan, denn 
die haben sich ja, wie schon ge¬ 
sagt, verbarikadiert. Gelingt es 
Ihnen einen der Offiziere, die 
durch ein ’+’ dargestellt werden, 
zu treffen, bringt das 1500 Punkte. 
Erwischen Sie gar den General, 
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versinnbildlicht durch ’X', erhöht 
dies Ihren Punktestand um 9000 
Punkte. Doch auch das Bekämpfen der 
Kolonnen wird belohnt. 

Es sei Ihnen aber gleich gesagt, 
das Gewinnen bei diesem Spiel ist 
nicht einfach. Denn verloren haben 
Sie schnell. Dazu kommt es, sobald 
drei angreifende Kolonnen die von 
Ihnen verteidigten Stellungen er¬ 
reichen. Hat allerdings der Herr 



General persönlich die Angreifer 
gelenkt, genügt diese eine Kolonne, 
Ihnen den Garaus zu machen. Natür¬ 
lich ist das Spiel auch beendet, 
wenn die Zeit abgelaufen ist. Hinzu 
kommt, daß die Angreifer einige 
Tricks zu ihrer Verteidigung ken¬ 
nen, die wiederum Ihnen Punkte oder 
Zeit kosten können. Doch lassen Sie 
sich überraschen. Und nun; Auf in 
den Kampf! 



, 1000 SAVE «TLF]” 
1010 SLOW 

■3 


16514 

76 

76 

00 

00 

00 

00 

00 

00 

OOEC 

16522 

00 

00 

00 

00 

00 

00 

00 

00 

0000 

16530 

01 

00 

28 

23 

OC 

OC 

00 

00 

0064 

16538 

00 

00 

00 

00 

00 

34 

3B 

2A 

0099 

16546 

37 

03 

57 

80 

00 

06 

C3 

5E 

0238 

16554 

BO 

60 

00 

00 

00 

34 

17 

17 

0172 

16562 

17 

3C 

2A 

2E 

39 

2A 

37 

OE 

0153 

16570 

00 

39 

26 

38 

39 

2A 

00 

OB 

0105 

16578 

35 

OB 

00 

29 

37 

3A 

2A 

28 

012C 

16586 

30 

2A 

33 

17 

17 

17 

80 

80 

01D2 

16594 

80 

80 

80 

80 

80 

80 

80 

80 

0400 

16602 

80 

80 

80 

80 

80 

80 

80 

80 

0400 

16610 

80 

80 

80 

80 

80 

80 

80 

80 

0400 


Hinweis zur Programmeingabe 

Gehen sie bitte, wie in dem Arti¬ 
kel; "So geben Sie Maschinenpro¬ 
gramme ein” beschrieben, vor. 

Liste der Variablen; 

A=37»191 
B=117 
C=28 
D=118 

E=1651M bis 22450 
Start; RAND USR 21300 


Helmut Dursch 


16618 

80 

80 

80 

80 

80 

80 

80 

80 

0400 

16626 

80 

80 

80 

80 

80 

80 

80 

80 

0400 

16634 

80 

80 

80 

80 

80 

80 

80 

80 

0400 

16642 

80 

80 

80 

80 

80 

80 

80 

80 

0400 

16650 

80 

80 

80 

80 

80 

80 

80 

80 

0400 

16658 

80 

80 

80 

80 

80 

08 

08 

08 

0298 

16666 

08 

08 

08 

08 

08 

08 

08 

08 

0040 

16674 

08 

08 

08 

08 

08 

08 

08 

08 

0040 

16682 

39 

2E 

39 

26 

33 

16 

2B 

2E 

0168 

16690 

2C 

2D 

39 

2A 

37 

08 

08 

08 

010B 

16698 

08 

08 

08 

08 

08 

08 

08 

08 

0040 

16706 

08 

08 

08 

08 

08 

08 

08 

08 

0040 

16714 

39 

2E 

39 

26 

33 

16 

2B 

2E 

0168 

16722 

2C 

2D 

39 

2A 

37 

08 

08 

34 

0137 

16730 

2A 

OC 

40 

01 

F8 

02 

09 

EB 

0265 

16738 

01 

20 

00 

21 

BO 

40 

ED 

BO 

02CF 

16746 

21 

7B 

40 

36 

32 

C9 

40 

01 

024E 

16754 

F8 

02 

09 

EB 

01 

20 

80 

00 

028F 
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16762 

00 

00 

00 

00 

80 

83 

83 

00 

0186 

17218 

00 

00 

22 

9F 

40 

22 

AI 

40 

0204 

16770 

83 

83 

80 

00 

00 

00 

00 

00 

0186 

17226 

El 

CD 

46 

48 

C9 

00 

00 

00 

0305 

16778 

80 

00 

83 

83 

83 

00 

80 

00 

0289 

17234 

00 

00 

00 

00 

00 

00 

00 

00 

0000 

16786 

03 

80 

80 

00 

80 

80 

80 

80 

0303 

17242 

00 

00 

00 

00 

00 

00 

00 

00 

0000 

16794 

80 

00 

80 

80 

80 

80 

80 

00 

0300 

17250 

2A 

OC 

40 

11 

E4 

57 

01 

18 

01DB 

16802 

80 

80 

80 

80 

80 

00 

80 

80 

0380 

17258 

03 

ED 

BO 

C9 

00 

00 

00 

11 

027A 

16810 

80 

00 

03 

03 

03 

00 

80 

00 

0109 

17266 

09 

01 

OE 

04 

21 

9F 

40 

E5 

0201 

16818 

80 

06 

80 

00 

80 

80 

80 

80 

0306 

17274 

7E 

2A 

OC 

40 

19 

E5 

21 

00 

0213 

16826 

80 

00 

80 

80 

80 

03 

03 

00 

0206 

17282 

IE 

11 

08 

00 

06 

08 

A7 

28 

0114 

16834 

03 

03 

80 

80 

80 

00 

80 

80 

0286 

17290 

04 

19 

3D 

20 

FC 

7E 

E3 

07 

02DE 

16842 

80 

00 

80 

80 

80 

00 

80 

00 

0280 

17298 

30 

02 

36 

17 

23 

ID 

20 

F7 

01D6 

16850 

80 

80 

83 

00 

80 

80 

05 

87 

030F 

17306 

E3 

23 

7E 

E3 

11 

19 

00 

19 

02AA 

16858 

83 

83 

81 

83 

04 

87 

83 

05 

031D 

17314 

IE 

08 

10 

EB 

EB 

El 

El 

23 

03F1 

16866 

87 

83 

83 

81 

00 

80 

80 

00 

030E 

17322 

7E 

E5 

21 

00 

FF 

19 

E5 

OD 

038E 

16874 

05 

00 

00 

00 

85 

00 

83 

83 

0190 

17330 

20 

CC 

El 

El 

C9 

El 

Dl 

E5 

O 6 OE 

16882 

83 

05 

87 

83 

83 

85 

05 

87 

0326 

17338 

OE 

96 

10 

FE 

OD 

20 

FB 

2A 

0304 

16890 

83 

83 

81 

80 

05 

85 

80 

05 

0316 

17346 

OC 

40 

OE 

18 

06 

20 

23 

7E 

0139 

16898 

02 

03 

03 

84 

00 

00 

00 

00 

008C 

17354 

FE 

17 

3E 

96 

20 

06 

73 

3D 

02BF 

16906 

80 

80 

00 

80 

80 

00 

03 

03 

0206 

17362 

20 

FD 

18 

04 

72 

3D 

20 

FD 

0305 

16914 

03 

05 

00 

83 

83 

81 

05 

85 

0219 

17370 

10 

EC 

23 

OD 

20 

E6 

OE 

00 

0240 

16922 

80 

80 

80 

03 

01 

02 

03 

05 

018E 

17378 

10 

FE 

OD 

20 

FB 

C9 

00 

00 

02FF 

16930 

02 

03 

03 

85 

00 

80 

80 

00 

018D 

17386 

00 

00 

00 

00 

00 

00 

00 

00 

0000 

16938 

80 

80 

00 

80 

80 

00 

03 

03 

0206 

17394 

00 

08 

38 

35 

2E 

2A 

31 

39 

0137 

16946 

03 

05 

85 

83 

03 

80 

34 

34 

01FB 

17402 

26 

38 

39 
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Bestellen Sie 
die Ihnen noch 
fehlenden CHIP¬ 
SONDERHEFTE 
Mit der neben¬ 
stehenden Karte 
geht’s ganz 
leicht. Einfach 
ausfüllen und 
ab die Post! 


u 


1 Bestellkarte für weitere 
CHIP-SONDERHEFTE 


u ja, senden Sie mir bitte die angekreuzten SONDERHEFTE zu den genannten Preisen 
zuzüglich Versandkostenanteil DM 3,50 im Inland. (Versandkostenanteil für das Ausland DM 6,-). 

Ich bezahle erst, wenn ich Ihre Rechnung erhalten habe. 







Apple II, II + Ile, IIc 

0010 

18,- 



CHIP-Test, Jahrbuch 1985 

0020 

24- 


ZX Spectrum 1 

911 

18,- 


Computer-Katalog 1985 

932 

24,- 


ZX Spectrum 2 

922 

18,- 


Computer-Hobby C 64 

924 

24,- 


ZX 81 Programme 2 

921 

18,- 



Neue Medien 

0050 

24,- 


ZX 81 Ausgabe 3 

0180 

18,- 



Telekommunikation 

0100 

24,- 


Atari 600 XL/800 XL 

920 

18,- 



MSX-Computer, Ausgabe 1 

0140 

24,- 


Atari600 XL/800 XL/65 XE 130 XE 

0060 

18,- 



Elektronikhobbies 

0190 

24,- 


Schneider CPC 464, Ausgabe 1 

931 

18,- 







Schneider CPC 464 und 

CPC 664, Ausgabe 2 

0090 

18,- 











Schneider CPC 464 und 

CPC 664, Ausgabe 3 

0130 

18,- 






Bitte genaue Anschrift 
auf der Rückseite angeben. 


Datum Unterschrift 


2 


Wünsche 


an die Redaktion 



Bestellen Sie 
noch heute 
die Programme 
für den 
Sinclair 

ZX-81, Ausgabe 3 



Bestellkarte für CHIP-SOFT 
ZX-81-Programme 


Bitte senden Sie mir alle Program¬ 
me dieser Ausgabe auf Cassette 
für 95- DM 

incl. MwSt. plus 3,50 DM Versand¬ 
kostenanteil und 3,20 DM für 
Nachnahme Inland. 

(Ausland; 6,- DM Versandkosten¬ 
anteil plus Nachnahme). 


Dalum 


Unterschrift 

Bitte genaue Anschrift auf der Rückseite angeben. 






















































Name, Vorname 


Straße/Postfach 


PLZ/Ort 


Name, Vorname 


Straße, Postfach 


PLZ/Ort 


Bitte 

mit 60 Pfennig 
freimachen 


Antwort 

CHIP-SONDERHEFTE 
Leser-Service 735 
Postfach 6740 

D-8700 Würzburg 1 


_l 


Bitte 

mit 60 Pfennig 
freimachen 



Ich könnte Ihnen für folgende(n) Computer 


folgende selbstentworfene Programme 
anbieten: _ 


Name. Vorname 


Straße. Postfach 


PLZ/Ort 


Antwort 

CHIP-SONDERHEFTE 
Redaktions-Service 
Vogel-Verlag 
Schillerstraße 23a 

D-8000 München 2 



X 

u 


Bitte 

mit 60 Pfennig 
freimachen 


Antwort 

CHIP-SHOP 
Leser-Service 735 
Vogel-Verlag 
Postfach 6740 

D-8700 Würzburg 1 
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